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1.0 ABSTRACT 


$_PROGRAM PE PERFORMS ube THE RK611/RKO6-RKO7 SUBSYSTEM VERIFICATION 
Ree NG” THe UNI ovIbE A RF PAGE AND-ACCESS TO MAIN MEMORY. THE TE ST ENG 
: Sh EMPL By es “CASE ITH Sens INVOLVING HEAD OFESe ring 
ADDRESS TNE AND “ER UN1BUS CYCLE CONTENTION TON 
NOL TEPLE DRIVE OPERA TONS. 1 Bop TTONALLY AN RKO6-07 HEAD ALIGNMENT AID 


PROVIDED TO FACILITATE ON-LI I t DRIVE HEADS. 
WITHIN THE VARIOUS YSTEM TESTS, EMPHASIS IS GIVEN TO USEFUL SCOPE 
LOOPS AND RATO SPECIFICATION OF TEST PARAMETER VALUES. AT THE 
BEGINNNG OF TESTING, THE FOLLOWING OPTIONS MAY BE SPECIFIED BY THE 

RK611 REGISTER ADDRESS 

RKDE-O> PRIORITY LEVEL 

DRIVE (S) TO TESTED 

TEST (S) dT 

NUMBER OF RU RAT TIONS 

INITIAL DISK SS ON TRANSFERS 

DATA PATTERNS USED 

STALL TIME BETWEEN OPERATIONS 

DITION, STANDARD SWITCH REGISTER OPTIONS ARE PROVIDED, FOR A 


IN AD 
VARIETY OF PROGRAM LOOPING, RUNNING, AND REPORTING MODES. 
apa wit. L BE REPORTED 5. pl. Ae er, THE REPORT WILL INCLUDE A TEST 


AND DESCRIPTION Lane NT PREVIOUS OPERATIONS, GOOD AND BAD 
Test Bata. AND AP LIGABLE” DEVICE REGISTER CONTENTS. 


2.0 HARDWARE REQUIREMENTS 


2.1 REQUIREMENTS FOR SUBSYSTEM TESTS 


THE FOLLOWING HARDWARE IS REQUIRED TO RUN PART 2 OF THE SUBSYSTEM 
VERIFICATION TESTS: 


1B Kk RERORY (0S,10 MFG. ONLY),20,34,35,40,4S,50,70 OR PDQ 


1 70 8 RRS? 07 
1 TO 8 RKOE/07 DISK CARTRIDGES (FORMATTED IN 20 OR 22 SECTOR FORMAT) 


2.2 REQUIREMENTS FOR HEAD ALIGNMENT AID 


SES 0005S 
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ADDITIONAL HARDWARE IS REQUIRED BY THE RKO& HEAD ALIGNMENT AID: 
\ eee SECTION THEREOF ) 


FKOE AL FI RLIGHMERT CART 


3.0 PRELIMINARY PROGRAM REQUIREMENTS * 


ur 


EFORE RUNNING T SUBSYSTEM VERIFICATION PROGRAM THE RK611 
MAINDEC-11-CZR6A THRU CZR6E AND CZR6K) AND RKOG 


B 
TROLLS IAGNOST 


DRIVE DI 


R DO Cf 
ate. g (MAINDEC- aE ezREH Daten CZR6J) SHOULD FIRST BE RUN, TO 


RESOLVE BASIC, SOLID HARDWARE FAULT 


4.0 GENERAL PROGRAM CONSIDERATIONS 


4.1 SYSMAC 


pL tal USES PORTIONS OF THE SYSMAC DIAGNOSTIC SYSTEM MACRO 


4.2 XXDP 


THIS PROGRAM MAY BE LOADED UNDER XXDP. SUBSYSTEM TESTS 1-6 MAY BE RUN 
IN CHAIN OR DUMP MODE, BUT THE ALIGNMENT AID MAY ONLY BE RUN IN DUMP 


4.2.1 CHAIN MODE 


THIS PROGRAM IS DESIGNE 
UND: Bed THUS, IN 


I 
PRESENT AND READY WILL B 
RKO& CONTAINS THE XXDP ™ 


ne 
AC 


4.2.2 DUMP MODE 
PROGRAM CaN — _RUN 
PARA ETERS IVE’ 0 
MEDI UR THe ope RAYDR Aust 
ATCA 
is TO BE DONE ON DRIVE 0). 


MAY 
PACK PRIOR TO TESTING (OR AN ALIGNMENT CARTRIDGE tr ALIGNMENT 


BE RUN_IN THE DEFAULT MODE WHEN CHAINED 
ALOGUE IS BYPASSED ~~ RKO& UNIBUS ADDRESS 
FAULTED TO STANDARD VALUES. ALL DRIVES 
fared WITH THE EXCEPTION OF DRIVE O, IF THE 


IN__OUMP MODE, WITH OR WITHOUT FAULT 
BE TESTED, ‘BUT pit IT CONTARRS THE XXDP 
PLACE. THE XXDP_ PACK WITH FORMATTED 


A MESSAGE WILL INFORM THE OPERATOR WHEN 


SEQ 0006 
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THIS IS NECESSARY. 


4.3 ACT/APT 


Ine oY GE RUN EM AUTORAEEC OR DOMP MODE, ANO THE HEAD ALYGRHENT: ALB 


4.3.1 AUTOMATIC MODE 


THE PROGRAM PROVIDES FOR AUTOMATIC APT/ACT OPERATION. IN THIS MODE 
PARAMETERS REVERT TO DEFAULT VALUES, AND ALL DRIVES WHICH ARE PRESENT 
AND READY ARE TESTED. 


4.3.2 DUMP MODE 


IN DUMP MODE, PARAMETERS MAY BE INPUT oR DEFAULTED, AND SUBSYSTEM 
TESTS 1-6 OR HEAD ALIGNMENT AID MAY BE R 


4.3.3 APT ETABLE DEFINITIONS 


THE FOLLOWING DEFINITIONS ARE VALID FOR 
TABLE (ETABLE) ENTRIES, VIA THE APT UTI 


1. SOFTWARE ENVIRO 
=1 IF APT SCR PT MODE 
=0 IF STANDALONE MODE 


SP’ ecrrie ef ENVIRONMENTAL 
LITY PROGRAM 


2. ENVIRONMENT MODE OYTE 
BIT 7=1 £ETABLE DOES SIZING 
= 0 PROGRAM DOES eteiNe 
BIT 6 = b 1g fPr IF SCRIPT MODE 
BITS=1 UPPRESS CONSOLE OUTPUT 
= 0 ALLOW CONSOLE OUTPUT 
BITS 4-0 NOT USED 


“A eet Tcn (SOF TWARE SytTey PESTS TER? 
NV IRONS NT MODE BIT 7 pe USED, Th ) IS SET_TO 1, THE SOFTWARE 
GISTER WILL 


INSTEAD OF THE HARDWARE CONSOLE 
euTTeH REGISTER. REG 


ROL WHICH ONE IS USED, ALL BITS 
EFINED IN TION ae EET tH REGISTER OPTIONS) MAY USED WHEN 


UNNING IN STANDALONE M 
anf 4 § pater MODE, HOWEVER, BIT 14 (LOOP ON TEST) MUST ALWAYS BE 


SEQ 0007 
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4. SWITCH 2 (USER SWITCH REGISTER) 
NOT USED 

S. MEMORY TYPES 1-4 AND MAX MEMORY ADDRESSES 
NOT USED 

6. INTERRUPT VECTOR 1 


USED WHEN ENVIRONMENT MODE BIT 7 = 1. DEFAULT = 210 


7. BUS PRIORITY 1 
USED WHEN ENVIRONMENT MODE BIT 7 = 1. DEFAULT 


8. INTERRUPT VECTOR e@ 
NOT USED 


" 
uw 


9. BUS PRIORITY 2 
NOT USED 


10. BASE ADDRESS 
USED WHEN ENVIRONMENT MODE BIT 7 


11. DEVICE MAP 

USED WHEN ENVIRONMENT MODE BIT 7 = 1. EACH BIT SET TO 1 IN BITS 
O-7 WILL SELECT THE CORRESPONDING “DRIVE TO BE TESTED. 

BITS 8-15 ARE NOT USED. 


1. DEFAULT = 177440 


4.4 DUAL-ACCESS 


THIS PROGRAM DOES NOT UTILIZE DUAL ACCESS FOR He PURPOSES OF ALL 
TESTS (1-6), AND THE HEAD ALIGNMENT AID (SECTION 11), THE OPERATOR 
MUST GUARANTEE THAT THERE IS INTERFERENCE FROM THE UNUSED PORT. _IF 
FAILURES ARE ENCOUNTERED IN TESTS 1-6 DUE TO INTERFERENCE FROM THE 
re ee ae I SED TO SWITCH THAT PORT OFF-LINE AND 


4.5 MEMORY MANAGEMENT 


THIS PROGRAM SUPPORTS MEMORY MANAGEMENT OPTIONS KT11C,D AND PDP11/70 
FOR THE PURPOSES OF TESTS 2-4 ONLY. IN THESE TESTS (SEE SECTION 93.73 
DIRECT ACCESS TO ALL OF PHYSICAL MEMORY ABOVE THE PROGRAM IS 
EXERCISED. FOR THE DURATION OF THESE 3 TESTS, MEMORY MANAGEMENT IS 
ENABLED. IN ALL OTHER TESTS BND DURING THE USE’ OF THE HEAD ALIGNMENT 
AID, MEMORY MANAGEMENT IS DISABLE 


4.6 MEMORY PARITY CHECK 
IF THE MEMORY PARITY CHECK OPTION IS AVAILABLE ON THE SYSTEM, ALL 


SEQ 0008 


JOl 
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35¢ 
376 TESTING IS DONE WITH PARITY CHECK ENABLED. PARITY ERRORS ARE 
377 REPORTED, AND TESTING IS ABORTED UNLESS THE BYTE LABELED MEMABT WAS 
338 PREVIOUSLY LOADED WITH A NON-ZERO V 
380 
381 
382 4.7 BAD SECTORS 
384 ACCORDING TO A CONTROL SWITCH OPTION (SEE SECTION 8.2.4.2 THE BAD 
38S SECTOR FILE ON EACH DRIVE TO BE TESTED IS TYPED AT THE CONSOLE PRIOR 
386 O TESTING. ALL DATA ERRORS OCCURRING IN THE PROGRAM ARE MASKED OUT 
387 Ie THEY OCCUR oN SECTORS DESIGNATED AS BAD, (BY EITHER FACTORY OR 
388 SOFTWARE) . 
389 
390 
391 
336 4.8 EXECUTION TIME 
394 EXECUTION TIME IS DEPENDENT UPON PARAMETERS INPUT BY THE OPERATOR 
395 (SUCH AS STALL TIME OR ITERATION COUNT), AND TO A GREAT DEGREE, UPON 
396 THE AMOUNT OF MEMORY. HOWEVER THE “AVERAGE TIME” REQUIRED TO RUN a 
397 QUICK VERIFICATION (FIRST PASS) IS 2 MINUTES (FOR A 64K SYSTEM). 
338 SUBSEQUENT pass ii WITH PARAMETERS DEFAULTED REQUIRES 3 MINUTES PER bRIVE 
400 NOTE: TIMES ARE APPROX DOUBLED FOR RKO7 TESTING. 
402 
403 
408 5.0 PROGRAM LOADING 
406 THE PROGRAM CAN BE LOADED FROM PAPER TAPE USING THE ABSOLUTE LOADER OR 
407 FROM ANY MEDIA SUPPORTED BY XXDP. 
409 
410 
ait 6.0 STARTING PROCEDURE 
413 
414 
415 6.1 STARTING ADDRESSES 
417 200 NORMAL STARTING ADORESS OF TESTS 1-6 (PARAMETERS DEFAULTED) 
418 204 SELECT OPERATING F PARAMETERS,RKO6/07 UNIBUS ADDR. AND INTERRUPT 
420 224 HEAD ALIGNMENT ard START ADDRESS 
422 
423 NOTE 
425 FOR HEAD ALIGNMENT AID OPERATING 
426 INFORMATION PLEASE SKIP TO SECTION 11. 
427 THE SECTIONS WHICH IMMEDIATELY FOLLOW 


428 APPLY ONLY TO THE SUBSYSTEM TESTS (1-6). 
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6.2 SWITCH REGISTER OPTIONS USED 


THIS PROGRAM IS DESIGNED TO ALLOW THE USE OF THE HARDWARE SWITCH 
REGISTER IF PRESENT pate SY yo -SUPPORTED SOFTWARE , medbe REGISTER 
(IF HARDWARE SWR IS NO ESENT OR IS SET TO HER 


CASE 
ARE SET 


Lo N EIT 
a ———— OPTIONS ARE IMPLEMENTED WHEN THE APPROPRIATE BITS 


BIT OPTION 
1S teed 
14 LOOP 
13 a ee 
le REPOR TION ORLY, ON ERRORS 
11 INHIBIT 
10 BELL ON E 
03 LOOP ON ERROR 
08 APPLY RANDOM STALL BETWEEN OPERATIONS 
O06 REPORT _ONE ERROR “i TRANSFER IN TESTS 2-4 
Ol INHIBIT WRITES IN T 1 
00 REPORT ALL SOPTHARE COMPARE ERRORS IN TESTS 2-4. 
NOTE 

FOR ADDITIONAL PROGRAM CONTROL OPTIONS 

SEE DESCRIPTION ig CONTROL SWITCH WORD 

(CS), SECTION 8.2.4.2 . 


7.0 OPERATOR ACTION 


Cul wre 


LOAD PROGRAM_INTO MEMORY (SEE SECTION 5.0) 
LOAD A FORMATTED PACK ON EACH DRIVE TO BE TESTED. 
Brae DRIVE (S) TO ONLINE STATE, WRITE ENABLED, AND LOCKED ON 


LOAD THE DESIRED STARTING a ges Fe (SEE SECTION 6.1) 
SET SWITCHES IF DESIRED (SEE SECTION 
PRESS START OR GIVE APPROPRIATE MONITOR START COMMAND. 


8.0 PROGRAM ACTION 


8.1 DESCRIPTION OF OPERATING PARAMETERS 


AFTER THE PROGRAM IS STARTED, IT TYPES ITS IDENTIFICATION AS FOLLOWS: 
“CZRENDO RK11/RKO6-RKO7 SUBSYSTEM VERIFICATION:PART 2”, FOLLOWED BY: 
“CAST PHYS MEM ADRS=XXXXXXXX". THEN, EITHER THE TESTS BEGIN EXECUTION 


SEQ 0010 
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WITH DEFAULT ths INTERACTIVE MODE IS ENTERE 


OR AN 

RS, 

Se Y Pasir =o ETERED BY VARIOUS MEANS. "ALL PARAMETERS 
NUMBERS, AND ARAMETER LIST IS SHARED AMONG 
eS 


AFTER EACH, an INDICATED THE 


VALUE.” AACE PARAMETERS ARE EN ENTERED. AS i SCTAL NUMBERS, A THE PARAMETER 
MNEMONICS- SHOWN ARE THOSE USED B 


THE FOLLOW NG 4? THE ae RATING PAREN TERS. (WHICH APPLY _TO THE 
tgs gs ECTION OF IVES AND TESTS). 


FC ernst CYLINDER ADDRESS IN TESTS WHICH ARE DONE OVER A 
RANGE OF CYLINDERS, FC=0-631, DEFAULT=0 
LC per CYLINDER SS_IN TESTS WHICH_AR _ OVER A 
CYLINDERS LC=0-63e, DEFAULT= 

FT FIRST TRACK ADDRESS IN TESTS WHICH ARE DONE OVER A 
RANGE OF TRACKS, FT=0-2, DEFAULT=0 

LT LAST TRACK ESS IN TESTS WHICH ARE DONE OVER A RANGE 
OF TRACKS, LT=O0-e, DEFAULT=2 

so FIRST SECTOR ADDRESS IN TESTS TCH Oe ety -_ rs 
SON SECTOR FORMAT CARTRIDGE. $0=0-23, DEFAULT=0. 

Sl LAST = ADDRESS IN nESTS WHICH ARE DONE OVER A 
RANGE ae [ORS tat ON ANY DRIVE WHICH HAS A 
SON SECTOR FORMA TRIDGE. $1=0-23, DEFAULT=23. 

Se FIRST SECTOR. AOORESS Th. IN_ TESTS WHICH ARE DONE OVER A 
RA N ANY DRIVE WHICH HAS A 
22-SECTOR FORMATTED CARTRIDGE, S2=0-eS, DEFAULT=0. 

$3 LAST Seg TOR A _ IN TESTS WHICH ARE DONE OVER A 
RA seer USED. ON ANY DRIVE WHICH HAS A 

Se NSEcTOR F MATTED CARTRIDGE. S3=0-2S, DEFAULT = 25. 

PT -.: DATA PATTERN SELECT WORD (SEE SECTION 8.2.4.1 FOR 

: DETAILS) Pra0-1 55ST, DEFAUL T=0 

cs CONTROL SWITCH WORD (SEE SECTION 8.2.4.2 FOR DETAILS) 
CS=0-00006e, DEFAULT= 

ST NUMBER OF UNIT STALL TIMES WITH WHICH TO STALL (DELAY) 


BETWEEN RKO& COMMANDS 


8.2 SELECTION OF OPERATING PARAMETERS (ADDRESS 204 START) 


SE@ 0011 
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8.2.1 ORIVE SELECTION 
AN Ot 204 START, ". PROGRAM INDICATES INPUT MODE BY T 


PEERS Who BNL PRS" SHEA te ASLEL LD NB 


Rie-te WAiomitc 8 RGRCL TPE SH VALE Fe 


NEXT THE PROGRAM TYPES THE NUMBER(S) OF THE NT_DRIVES UNDER TE 
FOLLOWED BY A (*) ON THE NEXT ERE TO REGHEST NEW ontue SUYRE RS. POR 
PARAMETER INPUT MODE 


ORIVE(S2=0 Lh, 4,7 
(INP t ’ GOES HERE) 


HE OPERATOR TYPES THE NEW NUMBERS (SEPARATED BY COMMAS) PLUS <CR> OR 


THEE oni Rives Ane THEN Ge CRED FOR VALID. statis’ By THE PROGRAR AND ACL 
eraselor “Tan “HCO Bes, ESB 13 a ae wie Hoc REI 


FINALLY TYPES JUST <CR>. 
on AR The SUBS FROM ay a ee WHICH ARE LISTED ARE ALL 


ADED ITH 8 c vee OT a ng (THI BLep. one 
Pee eee! BLP i reat an *! Ignhent PARK a THIS. bRtRIcs 
HE DRIVE Veer LECTION ROUTINE (VIA AS DES SCRIBED IN SECTIONS 
28 S AND 8.2.3.6) AM FIRST "CY PES: 
To TEST ALL ORV S TYPE “A” <CR>, ELSE <CR> 
(CHARACTER G HERE) 


NEXT, THE DRIVES ARE LISTED AS SHOWN ABOVE. IF (A) IS TYPED, ALL 
AVAILABLE DRIVES WILL BE LISTED, AND IF NOT, THE PREVIOUS SELECTION OF 
DRIVES WILL BE LISTED. 


8.2.2 TEST SELECTION 


WHEN THE OPERATOR FINALLY TYPES JUST <CR> IN RESPONSE TO THE ORIVE 
REQUEST, THE PROGRAM ENTERS THE TEST INPUT ROUTINE. THE FOLLOWING 
INSTRUCTIVE LINES ARE TYPED : 


L = LIST TESTS 
C = CHANGE TESTS 
I = INPUT PARAMETERS AND RUN TESTS 


SEQ 0012 


: 


SCERDRREEaaGy Ss 


3 


POO 
TO me re bh hh he he 
OWONCOW SWE O 


621 


a 
a 
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THEN, THE FOLLOWING REQUEST IS MADE : 


ENTER L I 
% LEKARACTER GCES HERE) 


THE OPERATOR TYPES THE DESIRED CHARACTER PLUS <CR>. 


6.2.2.1 LIST TESTS, (Ll) 
IF (L) IS TYPED, THE PROGRAM TYPES THE CURRENT DESIRED TEST i.IST, AS 
FOLLOWS : 


on i —— 
2 177777 
3 400 
4 es 
ETC. 


THE ITERATION NUMBER IS THE NUMBER OF TIMES TH: TEST WILL BE RUN ON 
THIS PASS, AND IT MUST BE BETWEEN : AND 177777. IF IT IS ZERO, THAT 
TEST WILL NOT BE RUN. ON THE FIRST TIME THROIGH, ALL TESTS ARE LISTED 
WITH DEFAULT ITERATIONS (YET TO BE DETERMINED). 


ae ist IS COMPLETED, THE PROGRAM RETURNS TO TYPE : “ENTER L,C, 


8.2.2.2 CHANGE TESTS, (C) 


IF _(C) IS TYPED, THE PROGRAM THEN, ASKS: “TO DEFAULT TESTS TYPE D<CR> 
ELSE <CR>” F ust <CR> 1S 7 YPED THE PROGRAM SEQUENTIALLY OPENS 
EACH TEST FOR POSSI ALTERATION ae THE TERATION NUMBER. EACH 

IS OPENED AND A NEW LINE IS TYPED AG THE TEST NO. AND ITER. Th" 
IN OCTAL, FOLLOWED BY (#) ON THE Pen ase vitRe. FOR EXAMPLE : 


TEST ITERATIONS 
0 O * (INPUT, IF ANY, GOES HERE) 


THE OPERATOR THEN TYPES THE NEW VALUE PLUS <CR>, OR JUST <CR> TO LEAVE 
IT UNCHAN OPERATOR TYPES A NUMBER FOLLOWED BY 
(EXCLAMATION POINT), THE NUMBER JUST ENTERED WILL BE LOADED INTO THE 
ITERATION TABLE FOR ALL REMAINING TESTS. AFTER ALL TESTS HAVE BEEN 
OPENED, THE PROGRAM RETURNS TO TYPE : “ENTER L,C, OP I” AGAIN 


8.2.2.3 INPUT PARAMETERS AND RUN TESTS, (1) 
IF (I) IS TYPED, THE PROGRAM ENTERS THE PARAMETER LIST ALTERATION 


SEQ 0013 
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ROUTINE, DESCRIBED IN SECTION 8.2.3, IN WHICH OPERATING PARAMETERS MAY 
BE INPUT, AND TESTING BEGUN. 


8.2.2.4 CONTROL Z (¢Z) FUNCTION 


IF THE OPERATOR WISHES TO EXIT AT ANY TIME FROM L OR C MODE, AND 
RETURN TO SELECT A NEW MODE (L,C, OR I), CONTROL Z (tZ) MAY BE TYPED. 


8.2.2.5 CONTROL C (tC) FUNCTION 


IF THE OPERATOR WISHES TO TERMINATE L,C, OR I AND RETURN TO 
REQUEST NEW DRIVES AND TESTS, CONTROL C (tC) MAY "BE PEt PED. 


8.2.3 PARAMETER LIST ALTERATION 
THE PROGRAM NEXT TYPES THE FOLLOWING INSTRUCTIVE LINES: 
T = TYPE LIST 
O = OPEN LIST 
S SET INDIVIDUAL PARAM. 
R= RUN Test SR 
ENTER T 
x LER ARACTER eGES HERE) 
THE OPERATOR TYPES THE DESIRED CHARACTER PLUS <CR>. 


8.2.3.) TVPE LIST, (7) 
IF (T) IS TYPED, THE PROGRAM TYPES THE CURRENT PARAMETER LIST, AS 
FOLLOWS: 


C = XXXXXX 
SY XXXXXX 


ays He ist IS COMPLETED, THE PROGRAM RETURNS TO TYPE “ENTER T,O,S, 


8.2.3.2 OPEN LIST, (0) 

vr. (0) IS TYPED THE pRogner THEN ASKS: “TO DEFAULT ALL_ PARAMETERS 
D<CR>, ELSE ST <CR> IS TYPED, THE PROGRAM 

SEQUENTIALLY’ OPENS EACH OPERATING PARAMETER IN THE LIST FOR ALTERATION 


CZR6ND0 RK611/06 SS VERIF @ 


CZR6ND.P11 


SSS SSS Ss SSS SS SSSA SSS, ss sins SS Ss 


— 


NNNINNNANNSNANNGSNS 
UR be bh pp ee —O 
WONTON LW -ODD 


7el 
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(IN THE ORDER SHOWN IN SECTION 8.1). EACH PARAMETER IS OPENED AND A 
NEW LINE IS TYPED GIVING THE PARAMETER AND ITS URRENT VALUE (IN 
OCTAL), FOLLOWED BY (#) THE SAME LINE. FOR E 


IC=3 * (INPUT, IF ANY, GOES HERE) 


T RAT TYPES T WY PLUS <CR> JUST <CR>_ T 
[EAE that AE TER UNCHA HANGED. AFTER BLL P goo Me HAV! = joa ny 
FOR ALTERATION. THE PROGRAM RETURNS TO TYPE “ENTER T,0,S, OR R”™ AGAIN 


8.2.3.3 SET INDIVIDUAL PARAMETER, (S) 


IF (S) IS TYPED, THE PROGRAM TYPES THE PROMPTER (>) ON THE NEXT LINE 
re FOR’ THE OPERATOR TO SET THE VALUE OF ANY INDIVIDUAL 


leat T,0,S, OR R 
> CENTER PARAMETER AND VALUE HERE) 
THE OPERATOR TYPES THE PARAMETER AND ITS NEW VALUE FOLLOWED BY <CR> 


my pe PROGRAM GIVES THE PROMPTER (>) AGAIN AS IN THE FOLLOWING 


E IVIDUAL SETTING MODE, THE grennree TYPES CONTROL. z 


TO_TER IND 
) THE PROGRAM RETURNS TO TYPE “ENTER T,0, S, OR R” AGAIN 


MI 
(#2), AN 


8.2.3.4% RUN TESTS, (R) 


IF THE OPERATOR TYPES (R), EXECUTION OF TESTS BEGINS, USING ALL THE 
CURRENT PARAMETERS. 


8.2.3.5 CONTROL 2 (*Z) FUNCTION 
IF T ERAT WISHE TO EXIT AT ANY_T FROM T OR R mQpe 
ner cat fA Ete TR NEW SoDE> tT,0 


(RUNN TESTS) N TO SELEC 0,5, OR R) 
CONTROL Z (2) MAY BE TYP 


8.2.3.6 CONTROL C (tC) FUNCTION 


SEQ 0015 
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IF THE OPERATOR WISHES TO TERMINATE T MODE, OR STOP TEST 
XECUTION (R MODE), CONTROL C (tC) MAY One OF AND’ THE PROGRAM WILL 
ETURN TO REQUEST NEW DRIVE SELECTION (SEE TE ED, A 8.2.1 ON AN 
ADDRESS 200 DEFAULT RUN, TYPING CONTROL C CAUSES THE SROGRAM TO HALT 
AFTER COMPLETING ANY DATA’ TRANSFER). 


8.2.4 SPECIAL PARAMETER SPECIFICATIONS 


8.2.4.1 PT-DATA PATTERN SELECT WORD 

ELect Up 16 a IFIE SIXTEEN BITS (6 OCT. DIGITS), TO 
SELECT T a CSTRTEEN Op THE OOM TE ERMA» we he. IN fee ION 9.5.1. 
CHOSEN oF The H GH BIT OF pr° hay atin fs SET, THE USER 
TO Tree PE UP TO SIXTEEN pare A WORDS WHICH WILL BE’ LOADED IN 
FOR PATTERN 15 TYPES: 


“SELECT USER DEFINED PATTERN 15” 


NEXT EACH OF ST Y THE PROGRAM IN THE SAME 
MANNER iN of verte HOE OE OE Eee ST eRe ARE OPENED FOR ALTERATION 


WORD ? = (OLD VALUE) * (NEW VALUE GOES HERE) 
weno t = (OLD VALUE) * (NEW VALUE GOES HERE) 


«9 “oe av Bve TT " UNCHENG B) ; to TReUT Less. THAR Ree Hr SOR bs POR BATTERN Chee 


the a ie CBATTERN 1 gt “BUFFER. WITH Tne as 7 Hie 
Eltbactea, Rexts a Ob nodtfn £8 ATLL ER ONT NUE, IN THE PROPER Re BARANETER 


3 


8.2.4.2 CS- CONTROL SWITCH WORD 


IN ADDITION TO My onions PROVIDED BY THE SWITCH REGISTER (HARDWARE 
OR __ SOFTWARE ) Sur TCH WORD (CS) MAY Fons peevir 20 AMONG THE 
OPERATING BARAME TER on RB OVIDE THE FOLLOWING OPTI 


BIT OPTION 


os OROF DRIVE Af ok? (DEC) ERRORS EXCERR 
O04 YPE BAD SECTOR FILES (BSF’S) ON FIR 
O01 ##INHIBIT OFFSET REPORTS IN TEST 1 


SEQ 0016 
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NOTE 
OTHER BITS UNUSED 


8.3 DATA PATTERNS 


THIS SECTION DESCRIBES THE DATA PATTERNS AVAILABLE FOR USE IN THE 
TESTS. H TA TTERN RISED OF 16 W WORDS. PATTERNS | ARE 
REPEATED AS NECESSARY TO OBTAIN THE DESIRED WORD COU ON THE WRITE 
DAT pani eR SA acta Th WOR COUNT fs NDETERMINED BY THE 
PROUNT OF AV Lepte. BUFFER SPACE AT THE END OF THE PROGRAM, AND COULD 
BE ASL (DEC) DATA SPIRALING AND TRACK SWITCHING 
IS faus AB SEsT STBLE SHORING HE BaTRe TESTS. 


THE FOLLOWING IS THE LIST OF 16 SELECTABLE DATA PATTERNS (IN OCTAL), 
WITH NOTABLE FEATURES DESCRIBED: 


SEQ 0017 
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0 1 2 
HIGH-LOW HIGH FREQUENCY LOW FREQUENCY 
FREQUENCY MIX FHASE MIX PHASE MIX 

177777 00 

177777 000000 O0SeSe5 

177777 000 

2Ses 177777 leSeSe 
0SeSeS 177777 1eSeSe 
Ses 4 1eSeSe 

177777 

177777 00 O0SeSe5 

OSeSe' 177777 12eSe2 

O0SeSeS 177777 leSeSe 

177777 

OSeSeS 177777 leSeSe2 

1772Se2 000000 S 

1772Se 77777 leSeSe 

1727658 000000 O0SeSe5 

1727658 177777 12eSeSe 

5 6 
ROTATING ROTATING ALL 
BOUNDARY PULSE CELL PULSE ZEROS 
PRECOMPENSATION PRECOMPENSATION 

121105 oegise 000000 

150442 113226 000000 

064221 045513 000000 

iene Cee 

rege cue BE 

013211 132264 000000 

10S504 0$5132 000000 

O4eb4e Oe64SS 000000 

021321 113226 000000 

110550 045513 000000 

044264 122645 000 

022132 15132e 000000 

011055 Ge4SS1 000000 

104426 132264 000000 

042213 055132 000000 


MAXIMUM 
PRECOMPENSAT ION 
PHASE MIX 


177777 


SEQ 0018 


SS sss s-ee 
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891 

83e 

893 

834 8 | 1 1 
895 SHIFTED 1 PHTE TED O ALTERNATING ALTERNATING 
896 IN FIELD N FIELD =i 1- 
897 OF QO’S OF 1’S 

RE ea el Eee: commen aan. <a 
900 000001 177776 OSeSe5 leSese 
301 0002 1777758 052525 leSeSe 
$e 177773 O0SeSe5 12eSeSe 
one 000010 teres DBSaee 153635 
90S 00004 177737 pesese 152525 
906 000100 177677 O0SeSeS leSeSe 
eu es ire, eee 
9093 0 oe? pesese [Bese 
910 002000 175777 eSeS leSeSe 
$11 004000 173772 O0SeSe5 1leSeSe 
Sle 010000 167777 O0SeSeS leSeSe 
$13 020000 157777 0SeS25 1leS2Se 
914 040000 435555 Ses 1eSeSe2 
aie 100000 77777 Ses leSeSe 
917 

918 12 13 14 1S 
919 SHIFTING COMPOSITE PSEUDO- USER- 
as? 0’S AND 1’S ROTATING RANDOM DEF INED 
322 ooo001 072307 

923 00000 135143 

e4 00000 156461 

es 000017 167230 

926 000037 073514 

3927 000077 R384 

928 000177 01672 

9e9 000377 107351 

930 000777 143564 

931 001777 061672 

932 003777 030735 

933 007777 114356 

934 017777 046167 

935 037777 123073 

936 077777 151453 

937 177777 164616 
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9.0 DESCRIPTION OF TESTS 


9.1 TEST 1 - OFFSET-TO-FAILURE MEASUREMENT 
IN THIS TEST A iSceNY bi PATTERN 072307(O0CT) IS RS EC AND bg ALL WORDS 


SEcrORS "BN AOVACENT CYLENoERS ARE TREN WRITTEN hirTH “le7esococy °¢70 


SH THEN, EACH 
SI Bec for’ I Werre TTEECKED iu WITH  YnchERsiNG "Beet tive Mere set g 

UNT EL ITHER A “DATA TYPE” E c F TIV 

OFFSET: BEEN APPLIED. THEN, EE T Is ITE CKE 

WITH INCREASING NEGATI HEAD. OFFSETS, UNTIL URE IMU 

NEGATIVE OFFSET BR, APPLIED. THIS IS bone FOR THE SECTORS 
ORIGINALLY ITT IN__ THE FOLLOWING TORS 4 AND 


R: - LS_ON 
CYLINDERS FC_AND LC’FOR TRACK 0, THEN FOR_TRACK AND FINALLY FOR 
TRACK f ite OFFSET -TO-F BILURE RESULTS ARE “REPORTED IN ORDER OF 
INCREASING TRACKS FOLLOWS: 
OFFSET-TO-FAILURE MEASUREMENTS: 
TRACK CYLN SECT Corks -OFST 
x XXX XX XXXX XXXX 


x XXX XX XXXX XXXX 
x XXX - XXXX XXXX 


NOTE 


IN AN ADRS 200 DEFAULT RUN, FS DEFAULTS 
TO 04-68 LS DEFAULTS TO 12(0CT:, FOR 


9.2 NPR / MAIN MEMORY TESTS 
THIS GROUP OF TESTS EXERCISES ALL _MEMORY ABOVE THE | aPRocRan VIA 

READ/WR NPR TRANSFERS TH TESTS ARE DESIGNED TO 
pragnose "enony TRANSFER, FAILURES as x: MN bevy NPR RechiviTY. IN 
YSTEMS PROVIDED WITH A 


11 C, D OR POP 11770) 
ALTHOUGH MEMORY MANAGEMENT IS NOT REQUIRE 


NOTE 


THERE _IS NO PROGRAM RELOCATION (EXCEPT 
FOR THE XXDP OR ABSOLUTE LOADER, IF 


SEQ 0020 
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994 
99S 

396 

997 PRES HENCE, MEMORY _ IN WHICH THE 

998 PROG: An “RESIDES’ IS NOT TESTED. ALSO, 

939 THE UNIBUS 170 ADDRESSES ARE NOT TESTED: 

1006 IF IT a DESIRED THAT THE LOADER BE 

001 DESTROYED, SO THAT ADDITIONAL MEMORY MAY 

002 BE TesTeD, gE QCATION 170 (KILLDR:) MAY 

003 MANUALLY TO A NON-ZERO VALUE. 

00s 

006 THERE ARE 3 MEMORY T sts PROVIDED. TESTS 2 AND 3 ARE TESTS OF MEMORY 
007 ADDRESSING CAPABILITY DURING DISK NPR’S, AND TEST 4 IS AN NPR/MEMORY 

008 DATA PATTERN TEST. DURING TESTING MEMORY MANAGEMENT WILL BE ENABLED 
009 IF INSTALLE iL OPERATIONS WILL BE PERFORMED IN KERNAL MODE 
010 WITH ADDRESS RELOCATION BEING DONE THROUGH MANIPULATION OF KERNAL ft 
O11 PAGE ADDRESS REGISTERS. 

ot 

O15 9.2.1 TEST 2 - NPR/MEMORY WORD ADDRESSING TEST 

017 STARTING AT THE FIRST ST ADDRESS OF THE NEXT 1 K MEMORY BLOCK BEYOND THE 
18 END OF THE READ A wel 5 aie CRUBUF) WRITE UNIQUE NUMBERS 
19 (STARTING. WITH 1) {NTO ACH OF T WORDS (DEPENDING ON 
2c PHYSICAL MORY ) ERS REFLECT UNI QUE ADDRESSES 
21 UITHIN THE TF tec XT ee sa HORDS (MAX) ON ; ISK AT FC 
22 gi SARY T OVERFLOW) . N ZERO THE 
23 ERTIRE. 64K BLOCK HE DATA BACK FROM THE DISK, AT 
24 HE YSIC Situ THE DATA READ TO THE DATA 
2s MReTTER TYP TYPE FAL tua’ (IF MEM. MANAGEMENT) AND PHYSICAL 
26 ADD AND BAD DATA, FOR UP TO THE FIRST 10 


SSES, AS LL 
(DECIMAL) "FAILING LOCAT one 


F MEMORY S_PR AND THERE IS ADDITONAL MEMORY TO 
EST, REPEAT “ABOVE ROURESSING TEST FOR EACH OF THE REMAINING 64K 


furry 
.0O0ON) 


ee eee ee ee ee ae ae ee ee ee ee ee ee ee ee ee ee he ee 
ONONOOO OOOO OOVOO0O00000000 CODO000000 


30 

3 PHYSICAL MEMORY BLOCKS. 

33 

35 9.2.2 TEST 3 - NPR/MEMORY BLOCK ADDRESSING TEST 

37 IN. THIS TEST, MEMORY BLOCK ADDRESSING CAPABILITY DURING RKO& NPR’S IS 

39 Q 

040 THE TEST NS BY WRIT AS E R INTO. ALL LOCATIONS OF 

bat MEHORY: BLOCK oF . nto e4k RoRoS: THES NU UNIQUELY DEFINES Each 
o42 saree THEN WRITE H BLOCK, ONTO TO DISK AT "ADDRESS FC Four rcsc ALED 
043 IF NECESSARY TO avoip PACK OVERFL DESTRUCTION OF He 8 CTOR 
O44 FILE). ZERO THE BLOCK IN MEMORY. AND Oren” READ THE DATA EC THE 
04S PROPER PHYSICAL ESSES, 709 THIS FOR ALL 64K BroeKs. AND THEN 
O46 COMPARE THE CON nee ALL’ ET MEMORY TO EXPECTED VALUES. TYPE 
1047 FAILURES AS Beschie D ABOV FORe THE FIRST 10(DEC) FAILING LOCATIONS IN 
io4e EACH 64K MEMORY BLO 
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1049 

ie? 

105¢ 9.2.3 TEST 4 - NPR/MEMORY DATA PATTERN TEST 

1054 IN THIS TEST ALL PHYSICAL MEMORY LOCATIONS 8 ABOVE PROGRAM 7h NOT 
1055 INCLUOT NG ~UbeE SSeS) ARE Serica WITH UP TO iS 
1056 DATA PATTERNS 14 DESCRIBED. ik 
1057 SECTION ON. 8.3 PLUS TTERN 1s (USER DEF INED Parte N). ie © ATA 
1058 PATTERNS treb THIS TEST ARE CHOSE PARATELY RN OWEVER 

1059 THEY DEFAULT TO PATTERNS 8, 9, 10, AND tie 

1061 MEMORY IS TESTED IN DIN BLOCKS OF 64K, STARTING AT THE FIRST ADDRESS OF 
1062 THE NEXT 1K K BEY + GRAM. EACH BLOCK OF UP TO 64K 
1063 IS LOADED WITH porn ONTO D Sk AT FC, FS, FT, LOADED WITH 
1064 ZEROS, AND READ BACK Aas COMPARED. THIS IS DONE FOR EACH Or THE DATA 
1065 PATTERNS CHOSEN, INCLUDING AN OPTIONAL PATTERN CHOSEN BY THE USER 

1067 

1068 

1068 9.3 TEST S - UNIBUS CONTENTION TEST 

1071 E OF TH : TEST IS TO EXER NPR CONTROL LOGIC WITHIN 
1072 THE PUB NT RD LER WB Monn R THAT Ac "CONTENTION FOR MEMORY CYCLES 
Oa ARISES BETWEEN THE NPROCESSOR AND THE R 

1075 FIRST, A WRITE peTA I RE (scat D TO AVOID PACK 
1076 REFLOW) fo ti ote Bu Pa 1s MENT INHIBIT ort SET 
1077 IN T CONTROLE T) OR 13000 (0CT) 
1078 (DEPENDI ont woe £0 sa TTTEN. W TH THE FIRST 
1079 Mm is cy Ur Se T OF 
1080 PATTERN ek ENTE RED IN 
1081 WHICH A_NON-E vee PER 
1082 PASS. TH Nee f Fa He -20 
1083 MICRO-SEC ( EXiS ENT 
1084 MEMORY THE 
1085 I TI 4 Mea rat sore FOUR 
1BBS REPIT RATE ee Serle e 
1088 70. "AL Shr Meee ibe "BE NO DATA Late 
1089 ERRORS FAULT -F et Ree THE DATA IS PHN WR E CHEC ED FOR 
1090 CERIEICATION, TRBOE pes IS REPEATEC USING A READ D 

1031 COMMAND. NO’ ERRORS ARE E D. 

1093 THE ABOVE RATIONS ARE REPEATED 15 MORE TIMES, USING THE NEXT WORD 
1094 OF PROPER PATTERN (13 OR 15) EACH TIME, TO WRITE AND READ THE 
1095 SATIRE TRACK. 

1096 

1097 

1098 

1099 9.4 TEST 6 - MULTI-DRIVE INTERFERENCE TEST 

1101 THIS TEST PERFORMS MULTI-DRIVE POSITIONING OPERATIONS, WHILE A_ LARGE 
1102 DATA TRANSFER IS IN PROGRESS ON THE DRIVE UNDER Test, FOR THE PURPOSE 
1103 OF DETECTING PROBLEMS OF CONCURRENT DRIVE OPERATION. "THE TEST IS RUN 
1104 ONLY IF THERE IS MORE THAN ONE DRIVE ON THE SUBSYSTEM. 


EEE a ala is i 
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THE TEST PROCEEDS AS FOLLO oF IT 1s FIRST DETERMINED WHICH DRIVE(S) 

ane TBE THE anon alls UNDER TEST) EXIS ARE OPERATIONAL. THESE ORIVES 

Atte NOB SEEK To cy Ot DONE ON EACH. NEXT, A SEEK IS 

Q CYLINDER FC (SCAL reo SARY) T ive R TEST. A 

BEEK 1S NOH H DRIVES H TO DIFFERENT 

HIS REQUIRE FROM 10-67 

MILL TSEC 0 Con AAS THE EKS ARE BEGUN, A WRITE DATA 

is BEGUN “Sook R T, AT nGURRENT cyt R (FC), SECTOR 

eee INC INHIBIT B 3 IN THE 

RON TROCLER’ ; WAND T 15,616 (DEC) 20 SECTOR 

FORMAT OR 17,152 (DEC) WORDS cTOR FORMA .._ THIS WORD COUNT 

AMOUNTS TO A FULL cyL NDER + ; ae BOF DATA. THIS TRANSFER REQUIRES 

DRIVES SHOULD HAVE COMPLET THLONTNG. NEXT, & HITE CHECK IS DONE 

TO VERIFY THE Baye fetr TEN IVE UNOLE TEST, AND A CHECK IS 

MADE I URE THAT ALL O HER BRives WHICH PERFORMED SEEKS WERE ABLE 

TO COMPLE : THEM SUCCESSFUL BY CKING ATTENTION BITS AND 
COMPARING DRIVE CYLINDER RDDRESSES 0 EXPECTED VALUES. 


10.0 ERROR REPORTING 


10.1 COMMON ERRORS 


THE FOLLOWING IS A LIST OF COMMON ERROR MESSAGES WHICH ACCOMPANY ERROR 
pote it ohntony THE SUBSYSTEM VERIFICATION PROGRAM. THE ERRORS ARE 


UNI PARITY ERROR 
NON xt TANT MEMORY ERROR 
NON-EXISTANT DRIVE ERROR 
UNIT FIELD 

SYSTEM TIMEOUT 

RC ITY ERROR 
ORIVE DETECTED PARITY ERROR 


ac L q 
TLEEGAL FUNCTION on ERROR 


mac T CE PUNCTION ERROR 


up 


VHOWONOWLWM-O0DNOWN Lure 


Pata) a Loe cel ond cel eel eed eed eed edd 


SEQ 0023 
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| 
| Alea 
1162 
' = 1163 é 
; 1164 23. CONTROLLER TIMEOUT ERROR 
| 1165 24. OPERATION INCOMPLETE ERROR 
«1166 25. HEADER V RROR 
1167 26. DATA CHE K RR 
1168 27. WRITE 1st ROR 
1169 28. DA A " 
ua <8 meer eA 
1172 3: ot a eee if E*ROT CLEAR 
tise 33. Eanes AVATAR + bie 
1175 4. any ae DRIVE pT TB fis 
1176 Ss. 
1177 36. 
1178 37. FOR RECOVERY 
1179 38. O1 T CLEAR ERROR 
1180 39. NO ATTE ON N ATTENTION SUMMARY REGISTER 
1181 40. UNSOLIC 
118s yp: pai o's Rol 1 carver CLEAR 
tiga 43. SuBSYs BCPA BI CLEAR IVE ATTENTION 
1185 44. DATA LA 
1186 4S. CONTROLLER RAMEN NS ER ROE RVICING 
118 46 RETRY. UNSU 
1188 4 BRoR USN SECTOR NOT LISTED BAD 
1190 
1191 
1132 10.2 ERROR HANDLING 
i132 Fae coal en i Mg Ee 
1198 TO TO RTICULAR TESTS E Srey’ F RINT a t "anheis aN OF an CB RROR 
1198 RE CONTE CH 
1199 gt ofits me gs de ewe Ch OR Tol re, fe ae “eet 
1200 ED SCOMPARE 
{ses vig EBs TR LOSE OAT ECS COT 
1203 see RES AREUAL T B’ Een ERROR REPORTS MAY Eisten Sf °OF DB INGLE 
1204 DESCRIPTIVE ETE INE. 
1205 
1206 
1207 
1208 10.3 ERROR PRINTOUT EXAMPLES 
1210 EXAMPLE 1: 
1211 %% WRITE CHECK ERROR 
1ele TEST 2 
1214 PREVIOUS COMMAND: 
i21s p CYLNDR TRACK SECTOR WD CNT 
1216 000000 O00i21 O00016 o00001 ad0000 175000 





| 
| 
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HI BA LO BA 
ocooco 061566 
CURRENT COMMAND: 


ERR PC ORIVE CMND CYLNDR 


O41 458 ooo90d 000131 o00016 

H 5A 4 ‘A 

ooc000 1566 

PACK ADDRESS OF ERROR(S): 
SECTOR 


CYLNDR TRACK 
000016 000001 d00006 


EXAMPLE e: 
*% DATA MISCOMPARE 
TEST 2 


pag ypous COMMAND : 
DRI Vi CMND CYLNDR TRACK 


oo a 000131, 000016 000001 
Buodde 674000 
CURRENT COMMAND 
000121 


CYLNDR 


T : 
ERR PC DRIVE CMND 
000016 


w BboBBo HPaBBo 


PACK ADDRESS OF ERROR(S): 
CYLNOR TRACK Bes non 
000016 1 0 


WD # 


407 





— > = 


000411 O0O41e 1eSese 


11.0 RKO6 HEAD ALIGNMENT AID 


THIS PROGRAM IS PROVIDED AS A SOFTWARE AID TO HEAD ALIGNMENT OF THE 


TRACK 
oocoo1 


SECTOR 
000000 


TRACK 
000001 


LO.PHY 


Pee 
ete 
Henle 


075022 


SECTOR 
000006 


WO CNT 
175000 


SECTOR 
000000 


1ss0ee 


WO CNT 
175000 


WO_CNT 
175000 


KIPARE 
BBe50 
ctetege 
B00808 


000600 


SEQ 0025 
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1273 
1274 
1275 
1276 
1277 
127. 


OODDOODDOODODOON 
£Wh--OwWo 


WwWwwrurrurofrororerororurururururure fu tu 
Bee eR Lo Heth 
Won: fWh-OWOnouU 


FREOO— 


WWWWWWIWWWWWWWWWWW 
he  —  - OOO 


Porurory 


Ue el el cl ll ed el ed ed dd dd ed ed ed ed el ed ed ee ed el et ee ee eet 
NOU LWM-OWONCOU CW-OWON 


WWWW 
fururury 
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TH THE RKOG FIELD TEST BOX, OR 
IGNMENT. THE PROGRAM OPERATES I 
Lect MODE WHICH SELECTS A SPECIFIC 

T AT T CON 


L Bt R MODE 
M ALIGNMENT, VERIFY 
S OF RANDOM SEEK EXERCISES TO 


11.1 HARDWARE REQUIREMENTS 


TO PERFORM HEAD Teent THE ALIGNMENT INDICATING DEVICE MUST BE 
COME c TER TO. CT VE VIA THE re GENT abe WHICH Aro? 0 THE 
RKO6& bate! T . THE ALIGNMENT NFORMATION FROM THE ORIVE MUST 
BE DISPLA ER OR OTHER INDICATOR. EACH DR.VE TO BE ALIGNED 
must p33 a D WITH _AN pKOe cenrENT CARTRIDGE, AND MUST BE 
WRITE CTED. UP TO 3 DRIVES PER CONTROLLER MAY BE ALIGNED) 
AND EACH DRIVE MAY BE OPERATED IN rg Ht MODE ONLY. FOR THE 
PURPO HE HEAD ALIGNMENT AND ALL SWITCH REGISTER BITS (HARDWA 


OR SOF ) ARE IGNORED. 


11.2 QPERATIONAL MODES 
THE PROGRAM COMMUNICATES WITH THE OPERATOR DOING THE ALIGNMENT THROUGH 
CONSOLE OF Et OGUF WHEN THE PROGRAM IS STARTED AT ADDRESS ee4(OCTAL), 
IT TYPES IGEN CATION: 


* eee Poe-07 HEAD ALIGNMENT AID #¥# 
TYPE H(CR) FOR INFORMATION- OTHERWISE, TYPE (CR) ™ 


NEXT, THE PROGRAM REQUESTS THE DESIRED MODE OF OPERATION: 
“ MANUAL OR AUTO MODE (M OR A)? ™ 
DE grenaten MAKES THE SELECTION, AND ENTERS ONE OF THE FOLLOWING 


11.2.1 MANUAL SELECT MODE 


IN THIS MODE, THE DRIVE(S) TO BE ALIGNED AND THE HEAD(S) TO BE 
peeeC TED ARE SPECIFIE one TTY INPUT. THIS MODE IS USEFUL FOR SYSTEMS 
WITH FEW DRIVES, WHICH ARE IN CLOSE PROXIMITY TO THE CONSOLE, AS IN 


TYPICAL FIELD INSTALLATIONS. 
THE PROGRAM FIRST ECHOS THE MODE: 


SEQ 09026 


oO0 


-_— dah at awa. ok SL A BOD Bt af date” Gadi | ML. at ee a ee Mle le, le 


—————— 7 
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1328 | 

1329 

1330 | 

133) “% MANUAL SELECT MODE * “ 

133¢ AND TYPES “ENTER DRIVE NO. (0-7):". 

1334 THE OPERATOR TYPES THE DRIVE NUMBER, THE PROGRAM TYPES THE DRIVE 

1335 SERIAL NUMBER, AND THEN ASKS 5 MALIGN VERIFY, OR EXERCISE (A OR E) 

1336 2" THE OPERATOR RESPONDS, HE "PROGRAM ENTERS THE APPROPRIATE 

1337 SUB-MODE . 

1338 

1339 

1340 

1341 11.2.1.1 MANUAL SELECT ALIGNMENT 

1343 ALIGNMENT IN MANUAL MODE PROCEEDS AS FOLLOWS. THE PROGRAM TYPES: 

134S % MANUAL SELECT ALIGNMENT *,” FOLLOWED BY 

t3u9 * » ENTER HEAD NO. (0-2): 

1348 THE OPERATOR T TY S THE DESIRED HEAD NUMBER, AND THE PROGRAM UNLOADS 

1349 THE HEADS DRIVE, oJ IN ANTICIPATION OF OPERATOR MOUNTING OF THE 

1350 HEAD BL IGRMERT TOOL. PROGRAM TYPES “TYPE<R> WHEN READY:” AFTE 

1351 THE BEEN NOUN NTED THE OPERATOR TYPES <R>, AND THE PROGRAM 

135¢ LOADS T?Pkos HAO 

1354 “HEADS POSITIONED AT CYLINDER 365(0CT)” 

1355 AND “HEAD X SELECTED” 

1357 THE POSIT NG TO INDER 3 365 J NCREMENT SEEKS, TO 

1358 AVOID EXCESS! MOMENT OMENTUM ON E posit TONE nubLE THE ALIGNMENT” TOO! 

1323 te NBROBR K T mek NOR pes THis ORTVE. 

1361 IF THE SSERATOR ofe 2 (#2) THE oy ROMER” ON TH 0 ASK 

1362 FOR “ALIGN OR EXERC 2” (STILL IN THEE SAME MODE). alhe CONTROL ¢ (#0) 

1363 IS TYPED THE P LOOPS F FURTHER BACK TO ASK FOR A NEW DRIVE NUMBER 

1364 (STILL {Nn IF CONTROL R (?R) IS TY PED, THE PROGRAM 

1365 EXITS FROM THEY CURRENT MODE, AND DOES A COMPLETE REST 

1367 

1368 

1363 11.2.1.2 MANUAL SELECT VERIFY 

1371 VERIFY MODE IDENTIFIES ITSELF AS FOLLOWS : 

1373 % MANUAL SELECT VERIFY x” , FOLLOWED BY 

1374 “ENTER HEAD NO. (0-2) 

1376 THE RIFY DENTICAL TO THE IGNMENT MODE, EXCEPT THAT 

1377 NEORD ING (Gap ING OF HEADS IS NOT DONE BETWEEN HEAD SELECTIONS. 

1378 ONE REFORE, IN THIS THE OPERATOR MAY SELECT HEADS FOR QUICK 

1379 AL IGNMEN VERIFICATION F tus tNG THE ALIGNMENT METER), WITHOUT THE DELAYS 

1380 OF UNLOADING AND LOADING HEADS. IN THIS MODE, THE OPERATOR WILL NOT 

1381 BE ASKED TO “TYPE <R> WHEN READY” 

| 


——— 
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382 

383 

384 

385 11.2.1.3 MANUAL SELECT EXERCISE 

387 WHEN THE EXERCISE SUR ANOOE OF MANUAL SELECT MODE of NTERED. THE 
388 PROGRAM UNLOADS HEADS ON THE SELECTED DRIVE, AND TYPE WHEN 
389 ae THE Se” meron MUST THRER peeve bs act give ad PROCEED. RL. 
3 ROO", SERS cn COB iB RO REICE ut 

as “# SEEK EXERCISES IN PROGRESS ON DRIVE X #”. 

sa pr ms ur etye newer = UPON G On ARE BEGUN ON THE OF THESE” tS a 
g Reso TUENERTOC Nes IBN <P tb aoe” Clad bag te 
93 CC), AN = 5 (HRD P BERFORM HAE SANE EXERCISE Su AS DESCRIBED IN SECTION 


oo 
~—O 
-_ 


11.2.2 AUTO SELECT MODE 


BY TS 20h, UbeRERAELAON DM BYSRL AP SREEDY EOF USAT Ja PS 
AUTO SELEC et A, ad oeTTED fo Bi MANUF AG TURING TEST ENVIRONMEN 
oe TO TELD INS el Onde “arpa HAS A NUMBER OF REMOTE DRIVES. THE 


GRAM FIRST ECHOS T 


“ALIGN OR plete oR’ eNp.ASKS 


My 3 — RESPONDS, AND THE PROGRAM ENTERS THE APPROPRIATE 


SEELCLLCLSELCELSLCLS ESSEC SLES CWWWW 


11.2.2.1 AUTO SELECT ALIGNMENT 
ALIGNMENT IN AUTO SELECT MODE PROCEEDS AS FOLLOWS. THE PROGRAM TYPES: 
” % AUTO SELECT ALIGNMENT * “. 
ea ee Cant 
a aut tee sre We babel Reteinnite ats 
ee tated cote Foie ot helene 
THEN R RELEASING THE Popa ae (POR THE N USE) ON THAT 


ee se ee ae ae te ae ae ae ee ee be ee fen ne ee be be ee es be ae Bs en be ee be Be Be be be ne be be Ds Pee Pe be Be be Be Be De 


ES SSSES ELLE EELS 
SERENE SBOE Low ooo NeN LUM ODD EO 


THE PROGRAM RECOGNIZES THE DRIVE SELECTED, AND CHECKS IT TO BE SURE 


CZR6ENDO RK611/06 SS VERIF 2 


CZR6NC.P11 10-JAN-78 10:05 


SeRRRa AAAS 
uw FO ODO ULE Wh-OwW 


Corr 


NSN SINNNO OO 
oul On Oww ae 


SELES LESCLCCSCOCSCOCSCLC SOLIS £ 
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THAT IT IS WRITE-LOCKED. THE PROGRAM THEN TYPES: 
“DRIVE X SELECTED” 


POG Tete” HERB*RCraAReRA Poe TUREN ET Ts Routed THE SBERATOR noel 


CEADS. See er 
HEAD 5° aRD tyre iN SINGLE PONCREMENTS out? 70 “tue AL ALIGNMENT PCYLINOER” ert 


“HEADS POSITIONED AT CYLINDER 36S(OCT.) 
HEAD O SELECTED”. 


CERES na SEG Lekn ag Te Sora St at oll Hee BOTRindtt 
DEPRESSING AND RELEASING THE PORT SUT TCH 


AD 
AGAIN "Suen HEADS f sant" BE LOADED, THE PROGRAM WILL SEEK TO CYLINDER 
365(0¢T), AND T 


“HERBS 1 PORE EE PRBS. AT CYLINDER SeScocT) 


THIS PROCESS MAY BE CONTINUED WITH HEADS BEING SELECTED IN THE ORDER 
ms iw nF’ 0, 1, 2, O, ETC. UNTIL THE OPERATOR HAS COMPLETED THE 


THE OPERATOR ot BD SH Seto’ NT_ON THIS DRIVE, HE SHOULD 


et Ute Yee BESHISS oli vié ote AE eh 
Ue BDH eet gees _ forte SoerBEB HP Peto 
ALIGNMENT TOOL(S) 


xERCISE Ne mee MUST BE SURE TO REMOVE THE 


NOTE 
THE tC FUNCTION DOES NOT APPLY IN AUTO 
MODE . 


11.2.2.2 AUTO SELECT VERIFY 
VERIFY MODE IDENTIFIES ITSELF AS FOLLOWS : 
“# AUTO SELECT VERIFY #*” 
THE AUTO SELECT VERIFY MODE IS IDENTICAL TG THE AUTO ALIGNMENT MODE, 


SEQ 0029 
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1494 
1u9e 

1497 EXCEPT THAT UNLOADING AND LOADING OF HEADS I off nBONE PE TWEEN HEAD 
1498 SELECTIONS. THEREFO IN THIS MODE, THE OPERATO HEADS 
1499 FOR QUICK ALIGNMENT VERIFICATION (USING THE A BC IGNMENT Y METER) WITHOUT 
1500 THE DELAY OF UNLOADING AND LOADING HEADS. 

1502 

1503 

1504 11.2.2.3 AUTO SELECT EXERCISE 

1506 IN AUTO TO SELECT CT EXERCISE MODE, RANDOM SEEK EXERCISES ARE PERFORMED 
1507 UPON “LING. ORIVES ARE EXERCISED SEQUENTIALLY 

1508 SORT TNE WITH eive o, HE _OBERATOR SPECIFIES EITHER LONG EXERCISES 
1509 (7500 SEEKS- MINUTE SHORT EXERCISES (1 SEEKS- 1 MINUTE) TO 
1516 be PERFORMED UPON EnCH BR 

1512 AUTO SELECT EXERCISE MODE IDENTIFIES ITSELF AS FOLLOWS: 

1514 CT RCI 

1315 FOLLOLED yee dae (ake ¢ (Ss “OR L) ?. 

1517 THE OPERATOR TYPES HIS RE SELECTED SEEK EXERCISES ARE 
1518 PERFORMED Sti Bi ati ' "TRON COnPLETI ION OF THESE EXERCISES, THE 
1519 PROGRAM RE “ALIGN XERCI Ise?" (STILL IN AUTO MODE). 
1520 WHILE In He CHARACTERS *Z AND *R PERFORM THE SAME 
1521 FUNCTIONS as’b pe IN CTION ea wee 

1522 

1523 

125¢ 7 

1526 F STI AUTO-EXERCISE MODE , 

1527 THe E OPERATOR fils r RENO ROVE. The ALIGNM 

1528 (WHILE TO-ALI 1oWieNt 

1569 MODE) WHILE THE TUkbos TARE ONLOAD ED. 

1531 

15 

153 

1534 

1535 11.3 ALIGNMENT AID ERROR MESSAGES 

1537 . “DRIVE X NOT READY! PLEASE START IF DESIRED, THEN PRESS *CONT’ 
1538 on? CPU WHEN ReADY FR is 7 NDICATES THA F A DRIVE SELECTED FOR 
1533 ALIGNMENT WAS FOUND ‘NOT READY. 

ieue 

1543 2. X NOT WR TE“OCKED! PLEA $ T WRITE LOCK SWITCH. PRESS 
1544 *CONT’ “ORR at WHEN READY" HIS cA S THAT A DRIVE SELECTED FOR 
1546 ALIGNMENT WAS FOUND NOT TO BE WRITE-PROTECTE 

1Bua 

1549 3. “PLEASE LOAD ALIGNMENT CARTRIDGE ON DRIVE X! PRESS ‘CONT’ ON 


03 
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1SS0 

ies 

1$S3 CPU WHEN READY.” - THIS INDICATES THAT A DRIVE SELECTED FOR ALIGNMENT 
ieee WAS NOT LOADED WITH AN ALIGNMENT CARTRIDGE. 

iss 

1558 P IVES. AUTO-SELECTE PRESS ’CONT’ TO RESTART.” 
i229 = *surs MU NOT CATES” YHAT TN AUTO ALTGNMENT MODE MORE THAN ONE OF THE 
ipe0 RIVES WERE SELECTED FOR ALIGNMENT STMUL TANEOUSELY. 

1564 Ss. “CANNOT READ BAD SECTOR FILE ON DRIVE X! PRESS *CONT’ ON CPU TO 
1565 RESTART” THIS INDICATES THAT A READ ERROR WAS ENCOUNTERED WHILE THE 
1566 PROGRAM was ATTEMPTING TO TOENTIFY THE CARTRIDGE ON DRIVE X AS AN 
1567 ALIGNMENT CARTRIDGE. 

1568 V 

153 

1$71 6. "? xX" = THIS IS TYPED BY THE PROGRAM IN RESPONSE TO THE INPUT 
1$7e2 OF AN _ INVALID PARAMETER, SHOWN HERE AS X. THE OPERATOR SHOULD NOW 
1573 ENTER THE PROPER VALUE. 


CZR6NDO RK611/06 SS VERIF 2 


CZ2R6ND.P11 
1574 


—OWODNOULWM-OWONOU 


£W 


ar RT ST Sr dat thet att teh tr fr tant hed <a | 


CUNWMIUIUIUTUTUIUT UU UU UU TU UT UU UT 


o000 
AroOVeoD 


se ee ee ee ee ee eee ee ee ee ee ee ee ae ee ee ee ee ae pe ee 
—-O00 


OOK KOKO OTK Orroroo 
DNOWLWM-OVOONOUCW-OwWD 


PUPP nununnr & ee ee 
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APPENDIX A 
SAMPLE ADDRESS 200 DEFAULT RUN 


THE FOLLOWING PRINTOUT WAS THE RESULT OF _ RUNNING SUBSYSTEM 
VERIFICATION, PART N_A SINGLE ORIVE (OR M4 0), FOR THE Fre bee 


2, 0 
OF THE PROGRAM (QUICK-VERIFY PASS). IN TH : MODE, ALL M 
APPEARING HERE OUTPUTS--NO OPERATOR INPUTS ARE PROVIDED ON AN 
ADDRESS 200 RUN. 
CZRGNDO - RK611/RKOG-RKO7 SUBSYSTEM VERIFICATION : 
LAST PHYS MEM ADR = 377776 


DRIVE 1 NON-EXISTENT 
Bete & (Rt-BetSHeNt 
—EXISTENT 
R XISTENT 
DRIVE(S) = 0 
TEST IVE 0 
DRive Ser" - § 
CART. SER. NO. 334 


OFFSET-TO-FAILURE MEASUREMENTS: 
TRACK CYLN SECT +OFST -OFST 
(UIN) 


PART 2 


(UIN) 
g 8 8 Be 
B 631 6 NON 
0 631 l@ NONE NONE 
1 0 QO 1050 NONE 
1 0 le ee 1200 
1 631 0 NO NONE 
1 631 l@ NONE NONE 
2 0 0 NE NE 
e 0 l@ NONE NONE 
2 631 0 NONE NONE 
2 631 le NONE NONE 

END PASS # 1 


SEG 0032 
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1629 
630 


eeececes chonnnnene 
DIT LwWM— ODO VO Sone 


56 


ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee 
COCO SOTTO rrrrrrn 


or 
mo 


NNNNSNNNNA NNO OOOO OO 


— eh 
oO 
fu 
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APPENDIX B 
SAMPLE ADDRESS 204 RUN 


Fe panne pat of, My a ofive SUBSYSTEM 
VERIFT AT a WITH Oe uta 


SPECT FEE Reales cf, Pil, (a hast ia: Procran Passes. 
PECIFICALLY, IT Was _D DESIR ED THA ar Test 1 Be Ru RUN ONCE, TEST 4. Seat 
sre cr ES a is ere ey, THE Bata 198 scant Ner TMA RE CBSE er PES ge 


CZR6NDO - RK611/RKO6-RKO7 SUBSYSTEM VERIFICATION:PART 2 
LAST PHYS MEM ADR=377776 


PARAMETER INPUT MODE 


RKO6-07 BUS ADR 177440 NEW 
RKO6-07 VEC ADR 210 NEW 
RKO6-07 PRIORITY NEW 


ORIVE(S) = 0 


bE HBTS 
I FNPUT PARAMETERS AND RUN TESTS 
ENTER L,C, OR I 


x 
i DEFAULT TESTS TYPE D <CR>, ELSE <CR> 


TEST ITERATIONS 
e*#1l 


fwnre 
fur 


* 
* O 
* O\ON1 


SEQ 0033 


I03 
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SEQ 0034 
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RIF 2 
8 10:05 


SS VE 
JAN-7 


/06 
10- 


CZR6ND0 RKE11 
CZ2R6ND.P11 


TTERN 15, TYPE M <CR>, ELSE <CR> 


w 
m4 
z 
Qe: 
wD 
= Ww 
Hee as 
mma qm 
elas” 5 at 
jia a 
w as a | uj 
z Wut it 4 Lt a Zz Qe 
OK - =e o o vy] o 
i' 4 cz = qgouw aw 
uo Oo ec-00-0- coer . : ie 9 it. ° 
Oo WWJ qqow wi uw Qo ro w 
tt oa o aaZtu o - . 
oO Lond oO —- O oO o> " °o 
> - wz - ou - 
>OW cw Loans > 
i 4 x -ouwc « o mo w a nnout uw a 
uJ - WJ Ww OWOwWoOMWoOWOOO WwW w>uUm-=f —ON WwW O 
ww FU WANT HWwO Fe HHH Kr HHnKnKnHnHnHnHnnh EFmMoOmNMd £ ace te il 
Zz iY) Zz Z VOrFFGC—UMr--UrF- Z > o o = © 
ux Wk FOWK We IJLIUMMMMLOW WkaaWMaare ESA Wk 


44 BOR here sO OFUOKOCO-UNTUMDOOCO-—UMNTNoO Oo mAUOZ CRASS 
DOOMooo POOMTODN90000000 4 Ata att CUCU UUUMMMM MOOT 
DOWD DDODWWDWWWDJWAAARARRARARARARARARRARARAARARARARARARARARARSK 
hh ht tt tt ttt 


SEQ 0035 


JO3 
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RIF 2 


706 SS VE 
10-JAN-78 10:05 


CZR6ND0 RK611 
CZREND.P11 


ot Cr) and 
wwmz ivy 
a See veyeuyyeyyyy 
S GTSeeeSSesosoo9 
wn i“ Gro Ww 
y ‘ ane peyeuusyey 
zs groeeeeseesoeeS 
gc w a 
ti ae Boe Whale 
RRR og 2 og So *RRRTRTR™S 
cuuuuuuuuuuud  - w S22 
y . ” x e-. Gz o0--00--00--4 
8 _easeveesessos Lo ] . ag o> om om om 
+ . o la) FO wow ow wow 
* S lecunzusnenunz, «2 gua ft 
™ -™ oo 1 [ta ag a . wx 
wowowrTT-00 co [=] {FT} la - oe Mo 
HnunHnHnnnnne tue era eee -a re ne uc OOOO 
OF F- O-nUMF- UE se z= y 4 wa we 
4k JIWMUWWILOW DIszIz =z 3232 wx Wx FOO or 
| 
| 
| 
| 
| 
FT TR NTT RR RTS UIT BS BOC UOR CORRE RU RE BSE BERERRE RE 
WKAKRAARAARAARAARKA Banoo eee RRR RRR REL RRR RRR ROR 
tet te rere A a a a 


pe ee ee ee ee ee es 
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END_PASS # 1 
ing TEST ALL DRIVES TYPE “A” <CR>, ELSE <CR> 


SEQ 0036 


genetgo RK611/06 SS VERIF 2 MACY11 30A(1052) 10-JAN-78 12:02 PAGE 38 SEQ 0037 


REND. P 10-JAN-78 10:05 
1804 
if 
iBa9 
«$868 
| 
1812 
| 1813 
1814 APPENDIX C 
| 1818 . SAMPLE MANUAL MODE HEAD ALIGNMENT AID RUN 
| 1818 
1819 
ie A OAs AES RG a, ce SAT 
1853 OF Re ma se RAE aie oe "hs Bat ART OR 
1823 ALIGNMENT. IN OPERATOR SEL HEADS 1 ENDC2 ,_IN 
1ge4 THAT R AND THEN THEN RANDOM. SEEK EXERCISES 0 Onan ON THE 
| 1Boe OE NG TER RENOV FOR oF "tie eo BuT THE HEREC Y TERR $ MOULD 
1866 Ada sabes Sebo By iM "2, HEY ee E PREMATURELY FINALLY, 
1828 VERIFY MODE WAS REQUE 2° WAS SELECTED BY THE OPERATOR. 
| 1830 CZRENDO - matinee SUBSYSTEM VERIFICATION : PART 2 
1832 
1833 xxx RKOG-O7 HEAD ALIGNMENT AID *#* 
1834 FOR HEL EH, ELSE <CR> 
1838 MANUAL OR AUTO MODE (M OR AD? 
1838 
1839 
1840 * MANUAL SELECT MODE * 
1842 ENTER DRIVE NO. (0-7): 
1843 6 
Lei DRIVE SER. NO. 8 
1846 ALIGN, VERIFY, OR EXERCISE (A, V, OR E)? 
184 A 
igus 
1850 % MANUAL SELECT ALIGNMENT * 
1852 ENTER HEAD NO. (0-2): 
1854 TYPE <R> WHEN READY: 
185) ADS POSITIONED AT CYLINDER 365 (OCT) 
185? HEAp 1 SeLeere 
1859 ENTER HEAD NO. (0-2): 


CZR6END0 RK611/06 SS VERIF 2 
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Ss be oh BERBER, 
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TYPE <R> WHEN READY: 


HEADS POST TONED AT CYLINDER 36S (OCT) 
HEAD O SELECTE 


ENTER HEAD NO. (0-2): 
Fee <R> WHEN READY: 


HEADS POSITIONED AT CYLINDER 365 (OCT) 
HEAD 2 SELECTED 


ne HEAD NO. (0-2): 

ALIGN, VERIFY, OR EXERCISE (A, V, OR E) ? 

,vre <R> WHEN READY: 

etna SEEK EXERCISES IN PROGRESS ON DRIVE 0 *# 
tan, VERIFY, OR EXERCISE (A, V, ORE) ? 

# MANUAL SELECT VERIFY # 


ENTER HEAD NO. (0-2) : 


e 
HEADS POST Txoneo AT CYLINDER 365 (OCT) 
HEAD 2 SELECTE 


oyren HEAD NO. (0-2) : 


ALIGN, VERIFY, OR EXERCISE (A, V, OR E) ” 


SEG 0038 


CZR6NDO0 RK611/06 
CZR6ND.P11 10- 


1903 


— 
ne 


rt eterna ttt 
WM OWONOU SWE rt oF 


BiB 


Sececany 


sate 


upke ht 53 


han 
WW 


ONAN OO NOE OOOO OO ORO OOP OEE 


By 


ss 
JAN- 


VE 
-7 


RIF 2 


8 10:05 
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APPENDIX D 
SAMPLE AUTO MODE HEAD ALIGNMENT AID RUN 


THE FOLLOWING PRINTOUT WAS T OF RUN: ING bBont see ALIGNMENT 
AID, PROVIDED IN reTen vERTE batt Spent oR 24 START). 
AUTO MODE RE TED, O FOR 
ALI NT. IN TH 7 LECTED FOR 
Be tN BYeS) ae Sere oy ae 
Oy AP Out REMOvEL OR RE, UNL TE 
THAT at ty oy BY THE 
OPERATOR, A ORR bee I . AFTE 
ALIGNING THe OPE ~SEEK EXC SES TO BE 
RUN (ON aut L ORI DRIVES. NT XERCISES 


vE VEY BAS REQUESTED. AND OR a TE, a is set nee vacfue, giecT 


CZR6NDO - RK611/RKO6-RKO7 SUBSYSTEM VERIFICATION : PART 2 
%%% RKO&-07 HEAD ALIGNMENT AID ### 

FOR HELP TYPE H, ELSE <CR> 

ttre OR AUTO MODE (M OR A)? 


* AUTO SELECT MODE * 
aI, VERIFY, OR EXERCISE (A, V, OR E) ” 


# AUTO SELECT ALIGNMENT * 
DRIVE O SELECTED 
te hte AT CYLINDER 36S (OCT) 
D AT CYLINDER 36S (OCT) 


: 1 ii D AT CYLINDER 365 (OCT) 
AD 2 SELECTED 


SEQ 0039 


ia te th 


| CZRGNDO RK611/06 SS VERIF 2 
| C2REND.P11 10-JAN-78 10:05 
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HEADS POSITIONED AT CYLINDER 365 (OCT) 
O SELECTED 


* AUTO SELECT MODE * 
‘a. VERIFY, OR EXERCISE (A, V, ORE) ? 


* AUTO SELECT EXERCISES * 
SHORT OR LONG (S ORL) ? 
EXERCISING DRIVE 0 


#% AUTO SELECT MODE * 
ener, VERIFY, OR EXERCISE (A, V, OR E)? 


* AUTO SELECT VERIFY * 

DRIVE O SELECTED 

HEADS POSITIONED AT CYLINDER 365 (CCT) 
HEAD O SELECTED 

HEADS POSITIONED AT CYLINDER 36S (OCT) 
HEAD 1 Perec ED 

HEADS POSITIONED AT CYLINDER 36S (OCT) 
_ 2 SELECTED 


BFK, VERIFY, OR EXERCISE (A, V, OR E) ? 


SEQ 0040 
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000001 


167000 


ooo001 


001100 
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PART= 
5 Ree if “PART” IS DEFINED = 0, PART 1 WILL BE ASSEMBLED. *## 
:4"% IF “PART” IS DEFINED NOT = 0, PART 2 WILL BE ASSEMBLED. ### 


;### REV 006 ### 
-NLIST MC,MD,CND 
, 


Is 
slike TE9000" 


; + 3-H He HE 6 HE ME HE HE HE HE HE HE HE HE HE HE HE HE HE HEHE HEE HE HEHE HEHE HE HE HERR RE RRR EER 
*SeTTL STARTING ADDRESSES 


i 200 FAULT PRARETERS. FOR_TESTS 1-6 
3% say CT PARAME ES FOR TESTS 1-6 
# ALIGNMENT 


eereeTT Peer er tree ert eer err err tr rere eter terre e terres) 


ie cnr < i Mlauiodst cher SS VERIF 2 
= AYNARD, aAss. OL 
s SPROGRAN BY DAVE HOFFMAN 


tSTH IS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
j PACKAGE (MAINDEC-11-DZQAC-C3), JAN 19, 1977. 


Sere OPERATIONAL SWITCH SETTINGS 


;% 

# SWITCH USE 

te “Ts = HALT ON ERROR 

} # 14 (Oe Est 

+ 3 eet ECC TPT ONLY, ON ERRORS 
Boy a eh Ee rie 

;* 1 

;* | 

;% g BETWEEN OPERATIONS 

1 6 BE TNSECR IN TESTS 2-4 

te 1 jaa Ir. IT PER ee ab 

1a 0 REPOR TWARE CO ARE ERRORS IN TESTS 2-4 
-SBTTL CONTROL SWITCH SE POR. tb TER 

is SWITCH USE 

te os DROP DRIVE IF 20(DEC) ERRORS EXCEEDED 

te 04 TYPE BAD SECTOR FILES (BSF’S) ON FIRST PASS 
3 O1 INHIBIT OFFSET REPORTS IN TEST 1 


-SBTTL BASIC DEFINITIONS 


-*INITIAL ADDRESS OF THE STACK POINTER **#* 1100 **# 
Stack= 1100 


SEQ 0041 


ERPRO SL/R Fan” BF ofos MACY11 3 BOSE) MOT TONS 78 12:02 PAGE 43 SEQ 0042 


2056 .EQUIV EMT,ERROR ;;BASIC DEFINITION OF ERROR CALL 
“EQUIV IOT; SCOPE ::BASIC DEFINITION OF SCOPE CALL 
;¥MISCELLANEOUS DEFINITION 
000011 AT= ry ea FOR HORIZONTAL TAB 
2061 oo001e LF= 12 FOR Cae NE FEE 
fir: 3 a F TURN 
RLF= URN-LINE FEED 
4 1 6 Ht iz 776 
2065 SW 
2066 177774 eTKLnT= feces ees LIMIT REGIS 
4 17777 HH INT’ nn a REGISTER 
1778 Boies. ee SE BHO 
So30 17787 1SP= 7737 8 
2071 ;¥GENERAL PURPOSE REGISTER DEFINITIONS 
2072 ooo000 RO= %0 ;;GENERAL REGISTER 
73 0 Rl= % 3 nat TER 
74 0 Re= % 33 TER 
7S R3= % +3 RAL TER 
2076 000004 R4= %4 HF TER 
ule poe RS= $3 TER 
78 DOC R6= % 33 TER 
2079 000007 R7= 4 ; ; GENERAL yo E A 
rieialeteeg ced +t BRBe Kam CADUNTER 
2083 ; PRIORITY LEVEL DEFINITI 
es: Saat H PaIOGETY LEVEE 9 
4 PRi= 40 :3PR TY LEVEL 1 
2086 0001c0 = 100 ::PRIORITY LEVEL 2 
2087 pos08 PR3= 140 Hage hy LEY L 2 
S88 g = 808 Pt BR LEVEL ¢ 
2090 000300 PRb= 300 ::PRIORITY LEVEL 6 
2031 000340 PR7= 340 ::PRIORITY LEVEL 7 
20 *"SWITCH REGISTER” SWITCH DEFINITIONS 
2094 100000 aes periitate 
20 040000 Swi4= 4o000 
20 020000 SWi3= 20000 
910000 gules 1 
4000 Wii=s 4 
0 002000 SWid= 2000 
001000 = 1000 


SwO 
sea ae te 


° W3 
“EQUIV 5wO8; Swe 


rururururururorurururur 
CSSBSRRERRC ESR RREG 
<= 
Be 
ORs 


ee eg eg ae ey rong od 


SEQ 0043 


EO4 
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we «x & - 
cw ae w 
oz -~ Ww WW 
aw - « a 
a “Oo *« t< ] 
eo & - Sa 
Jl “—_ = FOr 
, Ww ore 
| cw WO 
or be >wk 
“a >a 
w o: g xe 
2 ytt ghar SShns 
5 Wise. Esassr Seer 
oO ne Land Ne: waede 
be Ww COwsx-eacoav~acz 
8 bed Pecdge 
. ne Pénau: Pres 
fen] eH OR EM ER eBeBemes ee om ee cah— 
y ao w w 
o Y ow 
HH qc w 
e COnrwowrmryu-O oO . & 
— ee <a 
KR. OWT™m =9 z Lon amn Leman Lela Laman Lan © 4 =a 
BaaaaARE io Gacacamaaa =. 
pededtog “Basege oe SSsssecsss 5 aie 
SARAGARR KAPRAPROS NOOR aaasaeS PrSTZTRERESTEY BE 
OUNnOHKHHHUNO Q 
Fr>o>>o>>o>>> ZUUUNKNKHNKHKHNKNKHKHHKHKHHNKNSS>>>>>>>>> HOY OQooowttwWii -« 
SSSSSSSS GION ISSN See geoeSSS Seas Pew wueN ose = g 
tts TLC Ocenoe Pete CEESCe ee ¥ E 
Serer tarde teria -<OOOMMMMOaMMmMmmmmMmM.----+-:>: 1 “eee aeaaeeea Ee 


000014 
000014 
000020 
o0000e4 
000030 
000034 
000060 
000064 
000240 
000250 


UMNTFMNDOOVCO-UMNTMNWSOMTO-UM wr O3UMNT NOR DMCO3UMT Wr. OVO AUNT Ww. 
ee ee eeunueatute UUUBMMMmMMe ae ea tet ear tr ete tw wonouowuwo 
Sham hemy peep pany bem one enn hone, ba pees bam, hams bees an bee been en bone bam ems en, bam, bens mn pee bam os fon bn bees roe rn ns hs ft on ee ee ee ee ee ee ee eee 
CUCUCU CUCU CUCU CUCU CUCU CU CUCU KU CUCU CU CUCU CUCU CUCU CUCU CU Cucu cu CucucucuCcucucuCuducucucucucuducucucucucucucucucucucy 


poo 


CZR6NDO RK611/06 SS VERIF 2 
CZR6ND.P11 10-JAN-78 10:05 


2168 
2169 
2170 1775$7e 
2171 177574 
el7e 177S76 
gi73 172S16 
174 
e175 
e176 
2177 172300 
2178 17230e 
2179 172304 
2180 172306 
e181 172310 
e18e 172312 
2183 172314 
2184 172316 
218s 
2186 
2187 
2188 172340 
21893 172342 
2190 172344 
e191 172346 
2192 172350 
2193 1723Se 
iS ae 
oa 
2198 170202 
2199 172100 
2200 177740 
eec0l 177742 
ee0e 177744 
2203 
e204 
2205 000000 
2206 
sept 
22093 000174 
2ei0 000174 O00 

sik 000176 000000 
Fei ooo gantye 
55ie ie 000204 
5519 000204 000137 
ee18 000224 
2eei9 g002e24 000137 
cet Bee HRELRR 
eeee 
2223 


MACY11 30A(10S2) 10-JAN-78 12:02 PAGE 45S SEQ 0044 


MEMORY MANAGEMENT DEFINITIONS 
;*KT11 STATUS REGISTER ADDRESSES 


R 
LOE 311770 MEM LO ERROR ADRS REG 
R 7774 311770 MEM HI ERROR ADRS REG 
Hensy 2195545 311770 MEM SYSTEM REG 

-SBTTL TRAP CATCHER 


HAPHOD=17 

ME =17 4 ;MEMORY CSR REG START ADRS 
=] ty s 
= 


sROLL, UNISED LOCATIONS ERIM nd” B COU eaters eA.” 
; *LOCATION G Contntns 0 TO CATCH IMPROPERLY LOADED VECTORS 


DISPREG: * . WORD 0 ;;SOFTWARE DISPLAY REGISTER 


SuREG: Rouse. ::SOFTWARE SWITCH REGISTER 
; JH aaDFSTRT ;;JUMP TO STARTING ADDRESS OF PROGRAM 
KILLOR: “WORD 0 ;IF NOT = 0, IT IS OK TO OVERLAY LOADER 
Imp aePSTART 
.=2e4 
IMP QRASTART 
..LOW: [WORD 7 


-- HIGH: .WOR 1100 
-SBTTL ACT11 HOOKS 


ns 





O04 
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2224 ; ee ee ae me 
2225 } HOOKS REQUIRED BY ACT11 
5555 e588: ate ia 
gece oo00046 4 SE ;;1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 
2230 oo00S2 140900 "WORD 140G00 ;32)SET LOC.S2 TO 140000 
ge g006 34 .=$SVPC :: RESTORE PC 
FA 1600 w= 
2233 .SBTTL APT PARAMETER BLOCK 
ss : aET LOCATIONS e4 AND HAS REQUIRED FOR APT 
2237 9 Sciam “aggre. goo BOO aalapammmpamnaenaeguep aspen 
ie ee URRE 
5538 BoA SS 7224 43 au POWER PAIL fo. Boo aT TO START OF PROGRAM 
2) Gee ee 200 be ster r CT ADDRESS PNTR. 
= ee 

gee 000044 001000 SAPTHDR UBT 88 tg APT HE ER BL 
24 001000 =. $X ON C 
Sie s sregeaits eal rE RRE SE eT onnzenrrsunevesevnsenzes 

5 feet T PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
22 i TRTERFACE SPEC. 
cee oni ne 

ee ° 
301539 p00000 HIBTS: . H IT 8 BIT X ADDR. 

E 01 eye : “WORD nar Hs 2GH 8 T MA fateBax (B pete es 0-15) 
2251 001004 001130 STSTM: .WORD 1130 Tih oF LONGEST TEST 
cee eibie bong Sonrin’ tee 340 Naa Tine, cdEteh oe Stel Fon Gate SEIT Tena unTt 
5623 Bo iote B8ac48 : - HORE SO sintPod eh ll SHE Pe 
2255 120210 AVECTI= 120210 C=210 
2256 77440 ABASE=17 440 RBS ADR 
2257 00377 ADE VM= boa3? ISET DEVICES 0-7 IN MAP 
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se88 .SBTTL COMMON TAGS 
60 ; KERN KMR EKER KKK R AM KEK KEY SHEKEL RRR RK EEK LE LER EKER KKYS REAR ERA EKREH SER 
Bad ibruts TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
556 
64 001100 21100 
$8 BS 001100 o00g00 eortats ‘ono a OF sas TAGS 
ssp Betiss «BBE SiatMa: -BYtE 8 1 SONTR the EeRon Plage" 
see} 001104 nee ‘ee Hee TAINS SUBTEST Eieapp os cou 
eer Batt? SERTIL; {WORD 0 +E EONTA ng Scope Reon FOR ee . 
a Biitls ive: ee SUNS ine" Ga 
6552 Bat tsR SEBRER: :HBRB OB SHAS Bole FRBGS. ThgyRUCTION 
Ay. oF Tin Ck ee 
2280 Bile AO000C , ‘on 0 RESERVED--NOT TO BE USED 
2 ae muiee: “Be  SHIRRUAT FORE HRBIERTR 
Bike fee; Rg pp 
e s°¢ 
e288 BOLiS0 I? Sipe; | to8e4 itty R STATUS REG. ADDRESS 
55 8s 1 ate 177 f° pErry Baas et R re p Pies ; 
a Be cite Bae TED he ity eet bse 
294 Boies TPFLG: .BYTE 0 HH “TERAINAL I Lee FLAG (BIT<O7>=0=YES) 
fee Siieo ao: GROIN Tee PERSE Fen 
Be Blite pe: BRB orang {tees 
se Bliss fe: ee 8 veut (ieee 
2301 117 SREGY: (WORD 0 5 }CONTAT (( GAD +19) 
53 1174 SREGS: WORD 0 PICONTAING (¢ 1412) 
oe Biles pm: ee HUANG Beep} 
2306 001 RECHT: “HORD 0 t COnTAE 7 332) 
Bee iets Peels: “He 8 Rus | eee oes 
2309 OOle1 REGI4: :WORD 0 *:CONTAINS (( )+30) 
BHO Bolgis Bonom srecip: “Wow 8 HIOMTRING (SRE GaD} 135) 
| ib: ZWOR PEGONTAING (( 3339) 
5312 01220 000000 SREGI7; {WORD 0 PIGONTAINS ((SREGAD) +36) 
5313 001222 000000 $REG20: [WORD 0 SEEONTAINS (($REGAD) +40) 
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WWWWW 
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SORES 


Ga) 
4 
ee 
De ee ee eh ee ee ee he be 


He heb bebe bt bebe bet be 
26 


rururururory 
POSER ORES aBSER 
gegesssss 


ree et bet bebe htt bet bebe bh 
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000377 
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OMMON TAGS 


Cc 


ane 
5 


gonnenonnes 
SERIE EN 


SUD 
Gre 


Ss 


SSE EEEFEEEE 
rege? 
ee wo ee . 


& 


c 
SLF: : 
Merit ttt 


OOOOOOOOOOOOO0O0O000000000 


:8 


-ASCIZ 
MTTPTPPETTOTITT TTT TTT titi tii titi titi ttt tt ttt itt tiiiit 


<207><377><377> ;; 
427 
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ASTTL APT MAILBOX-ETABLE 


5g He HE ME AE AE aE aE ae ak a a a REE RRR REE EE 


AMSGTY i IRessnce Fyre CODE 
TAL aA RROR NUMBER 
3 


os 
F 


a 


iiss aiid 


5 
5 


ro 
al 


( (SREGAD) +42) 
( (SREGAD ) +44) 
(¢ GAD) +46) 
eae 
Beesiies 
(¢ )+60) 
He )+62) 
(¢ ai 
Bes 
Eee} 278 
CRD toe) 
(¢ GAD) +76) 


NT BYT ITs 
perisres 


2=01,11705=02, 11720=03, 11740=04, 11/4S=05 
=Ob POGCb? -Ot10 ‘ 
IME CLOCK 


NG POINT PROCESSOR 
MANAGEMENT 


SEQ 0047 


set lah, SS VERIF 2 MACY11 30A(10S2)_ 10-JAN-78 12:02 PAGE 49 SEQ 0048 


1 10-JAN-78 10:05 APT MAILBOX-ETABLE 

2370 001350 000 SMAMS1: .BYTE AMAMSI ;;HIGH ADDRESS,M.S. BYTE 

e371 001351 000 SMTYP1: .BYTE AMTYP1 ::MEM. TYPE BLKei 

237 ; MEM. TYPE BYTE  -- (HIGH BYTE) 

2373 1% NSEC CORE =001 

2374 :% € BIPOLAR=002 

2375 : i € MOS=003 
837 001352 oo0000 $MADR1: .WORD AMADRI ;;HIGH BLK #1 
237 + M.L .23 BYTES, THIS WORD AND LOW OF “TYPE” ABOVE 
e37 001354 000 sre : ByT ananse ; ;HIGH SS,M.S. BYTE 
s 7 1355S 000 MTYPe: .BYT AMTYP2 ;;MEM. TYPE,BLK 

380 001356 o00000 “ie AMADRe 3;MEM. SS, BLK#e 

2381 1369 000 3 : .BYT > ;HIGH M.S-BYTE 

e36¢ 1361 000 SMTYP3: .BYT: AMT 33MEM. »BLKS3 
S363 opisea boo eG ee Roe’ Byte’ 
2385 pot ses 000 Sea: ‘BYT! ae iMEM. T BLK EY 
2386 001366 000000 $ : :WORD AMADRY ::MEM.LAST ADDRESS, BLKs4 
2387 0013 120210 SVECTI: .; AVECTL :: INTERRUPT VECTOR#1, BUS PRIORITY#1 
23 001378 000000 SVECT2: :WORD AVECT jj INTERRUPT VECTOR SeBUS PRIORITY#2 
23 1374 177440 S$BASE: WO BASE ;:8A RESS OF EQUIPMENT UNDER TEST 
23 001376 77 SDEVM: :WORD ADEVM ;:DEVICE MAP 

2391 001400 SETEND: 
2392 .MEXIT 


SEQ 0049 


rrsT rTryrT rr7rT FFFF rTzrTITT 
a bexiend Salon ben bend Sahan banked Soalen den bend Pon bonkenben! tt 
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2449 
e451 
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peyerers 
#585 


<= 
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560 
BERS 


atalets) 
ee 
Bos 
end 


065010 


be sb72 
Beuro4 


060553 

H 
Ht 
060566 


rat 


dR POINTER 


DFO3 


OT10 


SLT FILT, SILT F 


or 
O95 


JAN-7 
TABL 


,;ERROR 10 
M1 


le 


14 


15 


16 


17 


20 
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;AC LOW 


; SPEED LOSS 


SEQ 0050 


; ILLEGAL FUNCTION 


; PROGRAMMING ERROR 


;NON-EXISTANT FUNCTION 


;ORIVE TYPE ERROR 


;FORMAT ERROR 


;WRITE LOCK ERROR 


;ORIVE UNSAFE 
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gee 
g 


reattartartarstrtatta tt 


RRO SReR 


eee eee 


DONT CWO 
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8888 886 
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«|= * @ 
==" 
«l= = = 
Pt ba babe 
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MACY11 30A(10S2) 10-JAN-78 
ERROR POINTER TABLE 


- ERROR 
tMel 


BY188 
DFO 


el 


22 


23 


24 


es 


26 


27 


31 
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;SEEK INCOMPLETE 


;CYLINDER OVERFLOW 


; ILLEGAL CYLINDER 


;DRIVE OFF TRACK 


;ORIVE TIMING ERROR 


;DATA LATE 


;CONTROLLER TIMEOUT 


;OPERATION INCOMPLETE 


;HEADER VRC ERROR 


;DATA CHECK ERROR 


SEQ 0051 





CZRENDO_RK611/06 SS VERIF 2 MACY11 30A(1052) 10-JAN-78 12:02 PAGE S3 SEQ 00Se 
CZR6ND.P11 os 


eS7. 


aaa eee i ee 


SSeS ear 
CW SWE 


o 


XINS 


b= be be be 


NNN 
FERS 


8888 8888 


ee 


ee Ra Hz 


aerate 


50c 





10-JAN-78 10: ERROR POINTER TABLE 
063072 DH100 
e410 DT100 
065120 DFO7 
: ERROR 
Ob1116 §M33 
06307 DH100 
064610 DT100 
065154 10 
ERROR 
061132 M34 
063072 DHi00 
064610 0T100 
065050 DFO4 
: ERROR 
Ob1152 EN3S 
063072 DHi00 
O64616 DT100 
4 OFO1i 
: ERROR 
061204 ENSb 
x 0 
00) 0 
- ERROR 
es 
0 
ERROR 


33 


34 


38 


37 


40 


41 


42 


43 


;WRITE CHECK ERROR 


;DATA MISCOMPARE (S) 


;NO DRIVE RESPONSE-UFE & NXD 


;ORIVE ERROR WILL NOT CLEAR 


;DRIVE STATUS CHANGE WILL NOT CLEAR 


;ATTENTION BUT NO STATUS CHANGE OR FAULT 


;ATTENTION BUT DRIVE NOT AVAILABLE 


;ATTENTION WHEN NOT EXPECTED 


;ERROR WHILE GATHERING DRIVE STATUS 


A Eee Sees es SOD eS ee 8 eee SS ee Oe —_ --™”” —  x-e' i— 


| BOS 
| CZRONDO RK611/06 SS VERIF 2 MACY11 30A(10S52) 10-JAN-78 12:G2 PAGE SY 
| CZREND.P11 10-JAN-78 10:05 ERROR POINTER TABLE 
2617 002026 065220 DF 12 
| 2619 -ERROR 44 
2620 061631 §M63 ;CLEAR CONTROLLER DID NOT CLEAR ERROR 
2be1 063072 DH100 
2622 34 064610 DT100 
2623 002036 065220 12 
a sERROR 45S 
ebeb 002040 061667 EM64 ;NO ATTENTION IN ATTENTION SUMMARY REG 
7 OQ02042 063072 DH100 
ebe8 goe04s 064610 DT100 
46 065220 DF 12 
2630 
2631 sERROR 46 
2632 O02050 061715 EMES ;UNSOLICITED ATTENTION 
2633 o205¢ 063072 DH100 
2634 4 064610 DT100 
e635 002056 065220 OF 12 
263 sERROR 47 
2638 002060 061737 EMb6 ;UNEXPECTED DATA TYPE ERROR 
0630 DH100 
2640 002064 064610 DT100 
eb4 002066 0652, DF 12 
2643 “ERROR 5O 
44 00207) 0617 EM67 ;ATTENTION DID NOT RESET WITH CLEAR 
4S 00207 DH100 
26 74 064610 DT100 
264 76 0652 OF 1 
2648 
2649 -ERROR S1 
2650 002100 ob2022 §N70 ;SUBSYSTEM CLEAR DID NOT CLEAR DRIVE ATTENTION 
2651 90210e 3072 DH100 
2652 104 064610 0T100 
2653 002106 O6Se2 DF 12 
Ba ERROR S2 
2656 002110 061451 EMS2 ;MULTIPLE DRIVE SELECT 
2657 OOelle 063072 DH100 
2658 002114 064610 DT100 
e659 002116 065220 DF 12 
2661 sERROR 53 
ebbe 002120 061466 EMS3 ;ABREVIATED HCE ERROR 
2663 O0ele2 063072 DH100 
2664 o0e1e4 064610 DT100 
2665 126 065250 DF13 
2667 -ERROR SY 
2668 002130 061037 —M30 ;OPERATION INCOMPLETE ERROR 
26639 O02e132 063072 DH100 
2670 002134 064610 DT100 
2671 002136 065300 D 


icuesadiahiiaemaatiaaieahedsidesainemeateiaenadl-Weaeee . dil uudiceetanaiisttenstatilin daiaeintc tecdeaiiasees es 





SEQ 0053 





nc ee ee) 


COS | 


| CZR6NDO_RK611/06 SS VERIF 2 MACY11 30A(10S2) 10-JAN-7 12:02 PAGE SS SEQ oos4 
| C2R6ND.P11 10-JAN-78 10:05 ERROR POINTER TABL 
| 2673 ERROR 5S 
| 2674 902149 oeiore pulp ;ABREVIATED HVRC ERROR 
| 
002144 Dee T10 
Bere 002146 e825 DF13 
2678 
ceed 1 gph 2 TIMEOUT ERROR 
seat est Perass Bri 60 : 
2682 002154 064610 DT100 
2683 002156 065330 DF 1 
seed ok Games jERROR 57 ;2ND LEVEL IN SUBSYSTEM TIMEOUT 
0021 3078 H109 
D0e I 4 2630 Tl 
D021 
2690 
2691 -ERROR 60 
e535 179 Bsa8e0 ENED ;ERROR IN RECAL FOR RECOVERY 
94 174 0 
e635 176 000000 0 
Seay -ERROR 61 
2638 002200 061562 EM61 ;ABORT MESSAGE 
709 Guess Go0009 5 
5505 -ERROR 62 
e704 902219 061615 ENE ;CYLINDER MISCOMPARE 
2 goee14 064610 T190 
e707 216 O65440 1 
208 :ERROR 63 ;DATA ERROR WORDS 
Bt 
71 4 Te02 
713 5550 DF2s 
2714 
2715 sERROR 64 
5r5 695832 Be ABs pis ;CLEAR CONTROLLER DID NOT CLEAR ERROR 
erie Obese Gbibib py190 
ost ERROR 65 
e762 002 as B67 PHGH ;NO ATTENTION IN ATTENTION SUMMARY REG 
DT100 
oe 
:ERROR 66 


EMeS sUNSOLICITED ATTENTION 





—- 
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27. 
Z 
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esse 
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pig 
roe 
- ERROR 
EMe6 


67 


70 


71 


72 


73 


74 


75 


76 


12:02 PAGE S6 


; UNEXPECTED DATA TYPE ERROR 


;ATTENTION DID NOT RESET WITH CLEAR 


; SUBSYSTEM CLEAR DID NOT CLEAR ATT 


;DATA LATE WHEN UNLOADING HEADER 


;CONTROLLER ERROR DURING DRIVER SERVICE 


;ORIVE DETECTED PARITY ERROR 


; UNDEFINED ERROR 


;MARKING SECTOR BAD MESSAGE 


;BAD DATA VERIFICATION WITH READ 


SEQ 0O0SS 


CZREND0 RK611/ 
CZR6N0.P11 
2785S 002366 
2786 
2787 
2788 ppes7e 
3780 Oue374 
soak 002376 
5544 
$35 Obeuue 
ca | 04 
ae 06 
27 
2800 


2801 


eis 


DO NOU Whe 
ay Bay 


Eno | RENB 


LL 


is} 
2 


He | 
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068474 


062326 


Oede74 
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ERROR FOINTER TABLE 


DF21 
- ERROR 
EN?7 
DT601 
DF23 

- ERROR 
EN? 
DT601 
DF2 


100 


101 


102 


103 


104 


105 


106 


107 


110 


12:02 PAGE S7 


;RETRY SUCCESFUL MESSAGE 


;ANOTHER RETRY SUCCESSFUL MESSAGE 


;RETRY UNSUCCESSFUL MESSAGE 


;NO VALID HEADERS IN TRACK JUST READ 


;BSE ERROR ON SECTOR NOT LISTED AS BAD 


; TIMED-OUT ON READ HEADER 


; TIMED-OUT ON SEEK 


;DRIVE SIEZED BY OTHER PORT 


;"DATA MISCMPR WHILE BAI SET” 


SEQ 0056 


cenetes ee ss Mead 2 
CZ2R 10-JAN-78 10:05 


6ND.P 
2841 


ees 


ieunnnseeasiee 


a 


Speen 


Rtetedetetetetited 
nine 


USL LLRRRREE 


2887 
2888 


002574 
002576 


Boeeo2 
Boze 


002610 


063056 


MACY11 30A(10S2)_ 10-JAN-78 
ERROR POINTER TABLE 


: ERROR 
£M107 


SS35 ooo 


"-: 


111 


lle 


113 


115 


116 


117 


120 


lel 


lee 


12:02 PAGE S8 


;"NO NEM WHEN EXPECTED” 


;" INTRPT WHEN CNTRLR NOT READY” 


;"NO ATT’N ON SEEK” 


;ORIVE’S CYLINDER INCORRECT 


; TYPE ADRS OF DATA MISCOMPARE(S) 


;DATA MISCOMPARE (11/770) 


;PART OF DATA MISCOMPARE 


;ABORT- CAN’T READ BSF 


;KT11 FAILURE 


;MEM PARITY ERROR 


SEQ 0057 


CZR6ENDO_RK611/06 SS VERIF 
CZR6ND.P11 10-JAN-78 
2897 002612 063072 
2898 002614 064610 

002616 O€&S634 

2901 testy 060432 

902 e6ee 000000 

303 be4 000000 

e304 O0ebe& 000000 
23905 
23906 
2907 
2908 
e909 


10:05 


2 


MACY11 30A(10S2) 1 
ERROR POINT 

1 

1 


JAN-78 
TABLE 


12:02 PAGE S9 


;NED IN SIZING UNDER APT 


SEQ 00S8s 
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CZR6ND.P11 10-JAN-78 10:05 BIT ASSIGNMENTS IN THE RK611 REGISTERS 

53th .SBTTL BIT ASSIGNMENTS IN THE RK611 REGISTERS 

2913 ;RKCS1 

eoi4 ; 15 1 13 12 ll ee. Toth 8 

53} ?CERR DI ! DCPAR! CFMT ! CTO ! CDT ! BAI7 ! BAG ! 

2917 :CCLR ! ‘ ' 

Sa} 5 RZW 0 i I A a A a 
2920 5 

Sash AE PR . es. RE. Nemeth HEALD, SORA _ ee 

2923 : RDY ! IE SPARE! ' ' £2 Fl ! g ' 

4 > RW! RW! We RW! Rw! RW? RW? RE 

926 " 

2927 ;RKCS2 

e328 : 15 14 13 12 11 10 g 8 
2930 : DLT ! WCE ' UPE ! NED ! NEM ! PGE ! MOS ! UFE ! 
e331 : 5 RO !RO !$RG i! RO !RO i# RO i?R i 
2933 . 

2934 "oe 6 S 4 3 a oo 

Saaz ! oR ! IR ! CLR ! BAI DESL ! DS2 ! DSi ! oso ! 
S332 a we Se RW Re Re 
2939 : 

2940 ;RKDC (DESIRED CYLINDER) 

S343 2. ee ee ee ee Oe Pah EF 

2943 > NU ! NU ! NU ! ' * NU !0c9 ! DCB ! 
Saue ; - re ee 
oos6 ; 

eo? “ 6 S 4 3 2 1 ts) 

2949 : pc7 ! OCB ! OCS ! OCH ! OC3 ! OC2 ! DC1 ! DCO ! 
3 : READ ONLY i 
3 § Peon mmm nnn m weno soso sesso ne nese sree eessenssesososoe 
2953 ;RKDA (DESIRED TRACK AND SECTOR) 

S3ec 2. ee Re ee ee ee. ee ea aos 
2956 : NU ! UN ! UN ! UN ! UN ! TA2 ! TAL ! TAO ! 

S3ee ae area at es, | ne EEE ELI 
egeg ‘ 

2360 ; 7? 6 Ss 4 3 2 1 i) 
2962 : UN ! UN ! UN ! SAY ! SA3 ! SA2 ! SAL ! SAO ! 
saz ; nein RON ETE, 


CZR6NDO RK611/06 SS 
CZR6ND.P11 10-JA’ 


VE 
IN-7 


R 
8 10:05 


IF 2 





MACY11 300 1088) 


OS 


10-JAN-78_ 12:02 


PAGE 6 
BIT ASSIGNMENTS IN THE RK611 REGISTERS 


;RKDB (DATA BUFFER) 
; iS 14 13 


; 2 11 10 3 g 
'pB1S ! DB1¥Y ! DB13 ! DBl2 ! DB1l ! DB1O ! DBI ! OBS } 
: READ/WRITE ‘ 
| aeccccnnccncceneecenncorersaesaannencnecnseaneenanaae 
; 7 6 S 4 3 2 1 0 

: pB7 ! DBE ! OBS ! DBY ! DB3 ! DBe ! DB1 ! OBO !} 
; READ/WRITE i 


ee ee ae ee ae ee ee ee 


.- ¥ 6 5 4 3 2 1 0 

; UN ! OF& ! OFS ! OF4 ! OFZ ! OF2 |! OFL ! OFO ! 

> * & READ/WRITE : 

; RKWC nee COUNT) 

; le 11 10 9 8 

*WwC1S ! WC1Y ! WC13 ! WCle ! WCll ! WC1O ! WCS ! WCB ? 

; READ/WRITE 3 

‘Se 6 S 4 3 2 1 0 

> WwO7 ! wee ! WCS $ WOH ! WOR ! WC2 ! WCl ! WCO ! 

3 READ/WRITE : 

{een nnn nnn nnn nnn nnn nnn nnn ns nn nnn nnn nn nnn nn nnn naan nn= 
RKBA (my ROORESS 

; le 11 10 3 8 

?BAIS ! BAILY ! BAIZ ! BAI2 ! BALI ! BAIO ! BAD ! BAB ! 

; READ/WRITE ; 

3; ? 6 5 4 3 2 1 0 

> BA7 ! BAB ! BAS ! BAY ! BAZ ! BA2 |! BAL : BAO ! 

; READ/WRITE 'ALWYSO! 


SEG 0060 


ncn LC LLL LLL LL 
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10-JAN-78 12:02 PAGE 62 
BIT ASSIGNMENTS IN THE RK611 REGISTE9S 
;RKER (ERROR REGISTER) 
; 15 14 13 12 11 10 9 8 
! DCK ! UNS ! OPI ! DTE ! WLE ! IDAE ! COE ! HVRC ! 
READ ONLY i 
. 2 6 S 4 3 2 1 0 


le 11 10 3 8 
:SVAL ! DSC ! PIP ! SPON! WRL ! UN ! UN ! DTP !} 
; READ ONLY : 
{ -------------------- === - == +--+ --- ++ ----- = ----------- == 
. 2 6 S 4 3 2 1 0 


;RKMR1 (MAINTENANCE REG 1) 
3; 1& 14 13 le 11 10 3 8 


:RO.' WRT! ECCW? PCD ! PCA ! MEWD ! MERD ! MCLK ! 
;GATE ! GATE ! H : H : H : 
3 READ ONLY ! READ/WRITE ! 


iMIND ! MSP ! DMD ! PAT ! mS3 ! MSe ! MS1 ! MSO ! 
; READ/WRITE ; 


SEQ 0061 
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BIT ASSIGNMENTS IN THE RK611 REGISTERS 
;RKECC/PAT 
; 15 4 13 12 11 10 = 2 
! UN ! UN ! UN ! UN ! UN ! EPAIO! EPAS ! EPaAs ! 
; READ ONLY 
mn oi 
; 7 b S 4 3 2 1 ) 


;RKECC/POS 
; 15 14 


;ORIVE STATUS INFORMATION 
;LINE A MESSAGE OO 
3; 18 14 13 le ll 10 3 8 


SEG 0062 


CZR6ND0 RK611/0 
CZR6END.P11 1 


o 
82 


| eheieheiehehalittahenetersnenenenesenenetsencarseetreseerses 
BDO NON LOU OOO NOU LW OD@ Ue Poe 


WWW WWW WWW WWWW WWW WWWWWW W WWW WWW) 


6 
O- 


s 
J 


S 
AN- 


VE 
-7 


IF 
1 


0:05 


2 


LOS 
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BIT ASSIGNMENTS IN THE RK611 REGISTERS 


;LINE B MESSAGE 09 
; 14 1 


Lie A | oe Ol 


; 13 12 11 10 3 8 

; PAR ! UNLOG! RTZ ! LOG ! REV ! FWO ! SPEED! CART ! 
5 ! HDS ! $ HOS ? § : OK $ PRES 8 
beeen nnn nn nnn nnn nn nn nnn enn nnn nnn nn nn nnn ann nse 
: F 6 ) 4 3 2 1 0 


PLO ! DIBIT! INDEX! MULTI! 
: ! ERR !HD SEL! 


HEAD 'WRGTE!WR CUR! SEC | NU! NU! Of 1? 
PAUL T! AN NO'AND NO! ERR ! : i ‘ ' 
; iXISTONIWR GTE! i i : i 


SEG 0063 
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Www 
beh 
WW 
tor 


VERZE 


IWIW) WIWIWW) 


a ae te ee ae ee ae a ae ae ae = te a be ee ae Be Be Be Be fe ae be ee fe Be ee Be ee be ee ae be ee 


FLOM ODS VOU LUN OOD VN £ OH ODD VOU OO ODD VRE wiDEO 


GI WIG) WIG) GIGI WI GIG) GIGI WI GI WI GIG) GIL) GIGI) WW) IW) I WI IW) WII WI) WI WWI) WWW WWW) WWW 
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BIT ASSI 
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praise 
RKWC= 
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;LINE A MESSAGE 10 - 

3 iS 14 13 12 ii 10 3 8 

: PAR! NU ! NU ! CYLINDER DIFF/OFFSET VALUE g 
. F 6 5 4 3 2 1 0 


; 15 14 12 ll 10 g 8 
PAR ! ALIGN! NU ! CYLINDER ADDRESS ! 
: i SIGN ! i 
| nncnnnnnneeerereenennnnnennnseneneneaneneeennesesn=a=== 
“a 6 5 4 3 2 1 0 

: CYLINDER ADDRESS ! UN #! UN $! 1! O08 
;LINE A MESSAGE 1 

: 15 14 1 eed BE Task Bat ee 
: PAR ! DRIVE SERIAL NUMBER ! 
; ee ee ee ee ee ee ee we we we we ae a ae ae ae a ae a ea a a we aw wees cscs srs sree aera aes ese ee eee 
2. 6 5 4 3 2 1 0 

: DRIVE SERIAL NUMBER ! DRIVE SELECT CODE ! 
| -ncnereenaneaeennreeeeenensennseeenenenesaneneeeeeeeeae 
;LINE MESSAGE 

; 1S . i3 12 ll 10 g 8 

> PAR! NU ! NU ! DECODED HEAD ' SECTOR! 
: i ‘ ADDRESS ' COUNT ! 
‘- . 6 Ss 4 3 2 1 i) 

; SECTOR COUNT ie Fare eS eS 


RKO& CONTROLLER REGISTER DEFINITION 
1 OORD COUNT REGISTER REGISTER 1 


RUE ROHR CE SLEIBE aecrsren 


0 ;CONTROL AND STATUS REGISTER 2 


SEQ 0064 





i 
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CZREND.P11 
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ee 
BIFRLGOHB BOs 


ee 


RERRRRRN SR ROENG 
NON EOW-OOB IRA LO 


om <6 
Wr--Oww 


POUFOFOFORaFOFD 
LOW Ovo Ve 


PODFUFOFUFOFOFOFUFUFFBFUFUFORG 
HOSOI 


BBbeeeooooees 
PRS SRBS 
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RKO& CONTROLLER REGISTER DEFINITION 


RK 2 ;DRIVE STATUS REGISTER 
RepRe 1G tORAOR REGI 
RKASOF= 16 OFFSET REGISTER 
moe | 60 Beate Re 0 
KDB= 34 ‘DATA BUFFE 
RKMRo: | 99 INRINTENANC fence REGT TER , 
Bee a aba ieee on 
RKECPS= 30 HEC PO IT ON_INF ORNATION 
PAT= 32 SECC PATTERN INFORMATION 
RKECPT= 32 SECC PATTERN INFORMATION 
\SBTTL DRIVE COMMANDS 
v= 101 ;SELECT DRIVE 
frie. ies 1c 
= e 
Ogo= 107 ; 
RTSPL= 111 START SPINOLE 
CALs 113 ; RECAL IBRATE 
ree ti? Ore 
TA= 11 i RE DATA 
aE Ie ae Eee, 
o 
HEADER AND DATA 
WRTcHk= 151 HIRITE CHECK 
, THE FOLLOWING ARE NOT DRI ARE USED BY THE DRIVER 
. TO SIMULATE A SPECIFIC alvE.co MoO S PUN 
; RELEASE 
RELERS Iai ae me “nn ORIVE 
CONCL R= 176 Pi 81T_1§ OF ¢S1) 
INTRE 300 Sues ie ReuPe Tt et 
: DRIVER ISSUED SERVICE COMMANDS 
R. , SELECT 
BR BER= ODS iPRIVE CLEAR 
\SBTTL CONTROL AND STATUS REGISTER 1 BITS 
1 T 
Tes ITB PINT ae af eant 
Y= it ; ON 
Bi: il 
= 
eOts Bt Tio he (O=RKO6, 1=RKO7) 
CTO= BITil SSuTRaLE ; ae QUT WAITING FOR 
CFNT= BIT12 ‘CONTROLLER DRIVE FORMAT (O=22 SECTOR, 1=20 SECTOR) 


CZREND0 RK611/06 SS VERIF 2 
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324 920000 
3e44 040000 
3245 100000 
——-B246 100000 
_ ~Bey7 
‘Beye 
_ Beys 
| Beso 
3251 900001 
0000 
53 000004 
3254 oo0020 
3255 
3256 
| 3257 
| 3258 000007 
| 3259 000010 
| 0010 
3261 0020 
| 3262 000040 
32 0000 
3264 000100 
3265 000200 
3266 00 
3267 001000 
3268 002000 
Ce 
3271 o20000 
3575 1a0000 
3274 
3275 
3276 
3277 oo0001 
8 ane 
3280 090004 
3281 000 
3283 oo0020 
3284 000040 
3285 000100 
3286 000200 
3287 000400 
3e 000400 
3289 001000 
32 002000 
3291 004000 
3292 010000 
3293 020 
sas 100000 
3296 
3297 


MACY11 SRA ARR) 


ONTROL 


SPAR= 
DOI= 
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AND 


STATUS REGISTER 1 BITS 
BIT13 ; ORIVE PARITY ERROR DETECTED BY CONTROLLER 
BIT14 ; ORIVE INTERRUPT 
BIT1S ;CONTROLLER ERROR 
BITIS ;CONTROLLER CLEAR 
THESE BIT DEFINITIONS ARE USED FOR ADDRESS 
THE HIGH BYTE OF RKCS1 
BITO ;BUS ADDRESS BIT 16 
BITl ;BUS ree BIT 17 
BITe ;CONTROLLER DRIVE TYPE (O=RKO6, 1=RKO7) 
BIT4 ;CONTROLLER DRIVE FORMAT (O=22’SECTOR, 1=20 SECTOR) 
CONTROL AND STATUS REGISTER 2 BITS 
7 ; FOR DRIVE SELECTION CODE 
BIT3 ;DESELECT OR RELEASE DRIVE IN BITS O-e 
BIT3 ; DE CT RELEASE Nag hd IN BITS 0-2 
BIT4 ; ADDRESS INCREMENT INHIBIT 
BITS ;CLEAR C LER AND ALL DRIVES 
BITS ;CLEAR CONTROLLER AND ALL DRIVES 
BIT6 ; INPUT Y 
BIT? ; OUTPUT Y 
BITS ;UNIT FI ERROR 
BITS ;MULT add 
BIT10 ; ad E 
BIT11 ext T MEMORY 
BITle ; NON-EX T DRIVE 
BIT13 ;UNT ITY ERROR 
BIT14 ;WRITE CHECK ERROR 
BITIS ;DATA LATE ERROR 


ERROR REGISTER BIT DEFINITION 


4444 

-00 
~ 
= 
2245 
+ 
oO 
z 
° 
os 


ODOONTU LWT 
ed 
On 
a 
: 
i= 


RROR 
ERROR 
nates INCOMPLETE 


pestesisolecteslerterieclertestceleslerlectesleuteslestes] 
3 
a 


hh ht tt tH 


bbe eee 
WESWM-oO 
| 
i 
| 
| 
Oo x3 . 
D 
+ 
D 
Q 
me 
vo 


STATUS REGISTER BIT DEFINITION 
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| CZ2RGND.Pil 10-JAN-78 10:05 STATUS REGISTER Bry obFiNTTION sah — So | 
3299 000001 DORA= _—=«- BITO ;DRIVE AVAILABLE (CONTROLLER IS SET IF 
: TH Spit JS RESET) 
ij g00004 OFST= BIT2 DRI SE 
3 10 ACLO= BITS :AC LOW 
3303 000020 SPDLSS= BIT4 :SPEED LOSS 
3304 000020 DCLO= BITy :DC LOW 
3306 aye Ohor= BIT ORT RE VALID 
330 user DRY= 118 > DRIVE READ 
3308 000200 DROY= ®BIT7 ‘DRIVE READY 
G00400 DOT= 1T8 ‘DRIVE TYPE (O=RKO6, 1=RKO7) 
310 4000 = IT11 WRIT LOCK 
311 o20000 PIP= IT13 ‘POSITIONING IN PROGRESS 
331 040000 pSc=  BIT14 i DRIVE STATUS CHANGE 
3313 100000 SVAL= 8ITIS TATUS VALID 
3315 .SBTTL MAINTENANCE REGISTER 1 BIT DEFINITION 
1? 000017 MESMSK= 17 ;MESSAGE MASK 
318 oo0020 Pats BIT Hers EVEN PARITY ON DRIVE BUS MESSAGE LINES 
3321 100 MSP= BITb TOR PULSE 
3322 00 MIND= BIT7 3a 
3323 go0400 MCLK= BiT8 >A 
= -MA 
3352 BB200B ME be Bttio ine RA INTENACHE NAC i ITE DA Bara 
ee pee aH eSoeg c 
3356 B3 00 ECCW= BtTts EC nob Te. BLE OR WRITTEN 
3329 o40000 WRTGAT= BIT14 WRITE GATE 
3330 100000 ROGATE= BITIS tREAD GATE 
3332 .SBTTL DEFINITION OF DRIVE STATUS BYTE 00 MESSAGE A 
3334 000040 S.ORR= BITS ; DRIVE AVATL TABLE 
35 000100 “Ws T :VOLUME VALID 
y : e-fipe. Aig BE fee" 
3338 001000 5. FORM= BITS iSeser FORMAT 
3333 etal 2 WRL= Birt? tORI re bet 
41 1 . gy ig ; 
4e 00 -PIPs Tl NING IN PROGRESS 
3344 "pSc= BIT14 Nt HANGE 
3345 .SBTTL DEFINITION OF DRIVE ne BYTE O00 MESSAGE B 
47 _ICYL= BITS LEGAL CYLINDER ADDRESS 
336 3: AGb= Bite i ton 
3349 000200 S:FLT= BIT7 
3350 000400 S:ILF= B1T8 OR EAL 
3351 001000 S:PAR= BITS : DRIVE TECTED. OORIVE BUS PARITY ERROR 
002000 S- SKI BITIO :SEEK INCOMP: 
3353 004000 S{WLe= BIT11 :WRITE LOCK LEROR 
3354 010000 S:SPLS= BIT12 :SPEED LOSS 


——— | 


| CZRENDO RK611/06 SS VERIF 2 


| CZR6ND.P11 10-JAN-78 10:05 
ee eetateele 8 -Brot= 
| 3357 040000 
3358 
$393 . SBTTL 
3361 000020 S. XDOK= 
3362 000040 5. HOHM= 
3363 000100 5. BRHM= 
3364 000200 5: DOOR= 
365 000400 ee 
= 
Fe 08300 3 REV= 
3369 010000 §-LOAD= 
3370 020000 "Riz= 
3371 040000 5. UNLD= 
3372 
3373 .SBTTL 
3374 
are o80080 §.SECT= 
7 Ol a: HELMS 
3378 000200 5: HOFL= 
3378 000400 8. MHD= 
DO x = 
380 8010 ae 2 ® XGBR 
3382 5: PLO= 
3383 010000 5: NMOV= 
3384 020000 S.LIMD= 
3385 040000 5: BRKE= 
387 .SBTTL 
3358 000007 M.ORV= 
3390 100000 M. PAR= 
3391 9000 M. 1D 
3392 1776) M.CDIF= 
ee nseee 
3 95 00760 M SECT. 
3396 007000 M. HEAD= 


MACY11 30A(10S2) PAGE 69 
DEFINITION OF DRIVE STATUS BYTE OO MESSAGE B 


10-JAN-78 12:02 SEQ 0068 


Birt IPE be OFF TRACK 
‘DRIVE UNSAFE 


BIL 
DEFINITION OF DRIVE STATUS BYTE O1 MESSAGE A 
BITY ; TRANSDUCER OK 
BITS ;HEADS HOME 

ITé >BRUSHES HOME 
BIT :DOOR INTERLOCKED 
Bits i con Taes INTERLOCK 

0 

Aue fai 
BtTts iin fe 70° ERO. 
BIT14 
DEFINITION OF DRIVE pane BYTE O1 MESSAGE B 
BITS : HE Site’ K AND NO WRITE GATE 

iTe ;WR Gate AND NO TRANSISTIONS 
BIT? rat 
BITS MOL TEP re HEAD SELECT 

1T3 i x 

Tio :DIBIT ERR 

IT1l *PLO E 

IT12 : SEEK NO 
BIT13 :LIMIT DETECT ON SEEK 
BIT14 : SERVO- E 
COMMON MASKS 

;ORIVE CODE 

BITIS jPARITY 

17760 ify C ENDER DIFFERENCE /OFFSET 

17760 ; CYLINDER DRE 
27770 ?ORIV SERIAL NUMBER *4 
60 :SECTOR COUN a 
7000 :HEAD DECODE ~. 





Ee 
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ee ee eee? 
NNR ee ee ee OO 
LWMK-OWONTUCW--OW 


E 
34eS 
3426 
34e7 
3428 
34e9 
3430 
3431 
3432 
3433 000000 
3434 000001 
3435 00000 
3436 0000 
3437 000005 
3438 000006 
33 00000 
3440 000007 
41 000010 
s44e 00001e 
S443 00001 
S444 
S445 
S446 
3447 000001 
3448 00000e 
S449 000 
3450 000010 
3451 000 


020 
34Se 000040 
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PARAMETER BLOCK ALLOCATION 


. SBTTL 


Leo2 2 2 Se ee ee SS SE SS EE SS SS SS SE SS 
uy FEL LCWWWWwe ee 


VVVVVVVVVVD ~~ 
oO 
il} 


DRVHRD= 
DRVOSC= 


PARAMETER BLOCK ALLOCATION 
9)" Spmmmntaeennmecmmenen a eimai | 





' ! O 
! CYLINDER ADDRESS i 2 
i TRACK ' i 4 
1BA16-17, FORMAT Tyee! OFFSE i 6 
Escort pena 2 
i er US_INEORMATION i 14 
i TAT GISTER 1 i 16 
' citer GREGISTER @ s 
‘ R a) 
: AND SECTOR ee 
' AND DRIVE OFFSET 32 
i R i 36 
‘ AGE L "Foret 00 49 
i Ete L Tat fe i yy 
i AGE L B et i 46 
i AGE L i SO 
i : CINE 8 BT TaTus BYTE E 10 i 52 
CINE & STATUS BYTE Ii : a6 
i it ON ENE : i 60 
i E i 62 


PA 
Tititiititiititiititiitiiiiireeeeeeee cece oot 


PARAMETERS PASSED TO THE DRIVER 


THE FOLLOWING DEFINITIONS ARE USED TO PASS PARAMETERS 
TO THE RKO&/RKO7 ORIVER 


5 ;ORIVE NUMBER 
2 >CYL R ADDRESS 
4 er TORS 

5 iT 

6 : OFFSET 
7 ;RKCSI ITS 8- 
7 5 
1 
1 
1 


( 
0 ; > ( 
2 ;WORD COUNT (2 T 
4 INFORMATION 


Baie VE POSTTT TIONING 
TIONED FOR DATA TRANSFER 


? 
3D ere 
5 ONEXPECT ATTENTION 
4 R HARD ER 
S ‘pave STATUS CHANGE DID NOT CLEAR 


SEQ 0069 
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34933 


BE 


BN 


000100 





MACY11 30A(10Se) 
PROGRAM 


CMDTO= 

W. WCK= 
NOCHK 

PBSVAL = 


Retr esueske 
Sr nnn 


“Mn nhhnnnnn 


==) 


DO--O00r- 


PVVVVVVVVVVV VV VV ~~ 


MmmMmDwD 
a ar 


10-JAN-78 12:02 PAGE 7 
DEVICE STATUS REGISTER DEFINITION 


BITé ;NO TERNINAT ON TO COMMAND FOR AT 
BIT7 : wRtfe or FoR WRI TE WR TE CHECK 
BITS NO CHECK BO _N6 T AaNTERRUPT ENABLE 
BITS iP TER aTUs hoe 

: RRINATION OR 


T 
RROR 
NQUEUED I 


a5 N INITIATION QUEUE 


gels batter ws 

VE TEST SEQUENCE 

* ATTEN i T BUT BND FAULT RESET 
DRIVE SRIZED. BY OTHER PORT 

DRIVE YER BLOCK CUE I 
; INHIBIT Bus SS INCREMENT 
PARAMETERS PASSED FROM DRIVER TO PROGRAM 


THE FOLLOWING DEFINITIONS ARE USED FOR REGISTER RETUR"S 
FROM THE DRIVER TO THE CALLING PROGRAM 





16 ; TAT TER 
8 SSeS 8 ST LITE 
24 BUSS R 
26 ; Rack eTOR REGISTER 
30 ; 2 REGISTER 
32 H 7OFFSET REGISTER 
: ped t 
42 ; TE 89 
uy $ TE Ol 
; : if 
2 : TE 1 
: eee A ati ech 
A 

I ION 
62 EGE PA + EAN INFORMATION 
PARAMETER BLOCK 0 FOR DRIVE 
. VTE : 5D IVE NUMBER 
BORD 0 ?CYLINDER ADDRESS 
Be 8 Tabs ofeees” 
"BYT 0 :OFFSET VAL 
"BYTE O + BUS (BITS 16 AND 17) 
HORS 8 Bus Aabress (BITS 0-15) 
WORD QO :PROGRAM DR TATUS INFORMATION 
WORD OO + CONNAND TATUS REGISTER 2 
ee Boe” Sow ee REET ER 
WORD O :DESIRED TRACK AND SECTOR REGISTER 


SEQ 0070 


CZR6ND0 RK611/06 SS VERIF 2 MACY11 30A(10S2) 10-JAN-78 12:02 PAGE 72 SEQ 0071 


C2REND.P11 10-JAN-78 10:05 PARAMETER BLOCK O FOR DRIVE 
3ef0 “HORD tRTTENTION j n RY OBEESET REGISTER 








cat 
il 0 T 
15 WORD z : ee eH Poronus BYTE 00 
315  HOBB 2 HES Line 8 aTatue BYTE 8? 
16 “WORD 0 ME LINE TATUS B 
at “HORB 5 ineSace LIne : Status BYTE 18 
‘eB Sone Cie G,ST6IvE SVE 
1 “HOR 2 RS OSE STON PAPORMATION 
3528 :WORD 0 :ECC PATTERN INFORMATION 
.SBTTL PARAMETER BLOCK 1 FOR DRIVE 
PARML: “BYTE 8 ; DRIVE NUMBER 
‘BORD HEYCHHGER, BORRESS 
- BYTE 0 j TRACK ADDRESS 
. ’ 
BS Ls ay ea 
- WORD 9 j PROGRAN ate 
° ; 
“WORD é if ist a 
[WORD O fee R 
- WORD : Bes} nbeferennectsTes 
WORD O ON FSET REGISTER 
co 
“WORD O iMeS L Us Byt E oo 
ie iteseoe {ite @ status Brie 8} 
WORD ; 2 L 8 TAtuS BYT 10 
WORD O : L 8 TATUS BYTE 10 
WORD 0 ; L TATUS BYTE 11 
‘WORD 0 if : TATUS BYTE 11 
“WORD O #3 ON INFORMATION 
WORD O i PATTERN INFORMATION 
.SBTTL TEMPORARY CONTROLLER REGISTER STORAGE 
T.CSi: .WORD O ; TEMPORARY STORAGE FOR COMMAND AND STATUS 
T.cS2: .WORD 0 Teleaierencpomee FOR COMMAND AND STATUS 
T:Bas SWORD OB STENPORARY STORAGE FOR BUS ADDRESS Reis ER 
T.DA: .WORD O : TEMPORARY STORAGE FOR BIS TRACK AND SECTO 





CZRENDO RK611/06 SS VERIF 2 MACY11 30A(1052) 10-JAN-78 12:02 PAGE 73 
C 





ZR6ND.P11 | 10-JAN-78 10:05 TEMPORARY CONTROLLER REGISTER STORAGE 
3k }:RSbe: :HBRB 8B HTERPORARY oer Onmee FSB RFYRrfoh! SoRRary 

3208 Tbs: :WoRD OB | TEREORERY "pronace FOR BRIVE Status Re REGISTER 
3259 TIMRe; “WORD OO i Tere anay STORAGE FoR iNipers ENANCE E REGISTER 3 
3672 TIMR3: WORD O I TEMPORARY ST FOR MAINT GISTER 3 
3254 T:pat; “WORD 8 i TEMPORARY STORAGE FOR ECE PATTERN 

3575 T:DB: :WORD 0 ITE STORAGE FOR DATA BUFFER REGISTER 
3577 SBTTL DRIVER PARAMERTERS 

3278 003036 177440 RKBAS: .WORD 177440 ; ADDRE CaaS ADDRESS BLOCK 

3580 003040 10 RKVEC: <WORO 210 ; ADORE 1 yecton 

3283 38 RXROAH: ERRERE / + ROBAE niewegt & URN FROM DRIVE 

oo es past sa Ea SE et eek 

— spinnin anette sn 1 oon TS Loe CLEARED WHEN EVERY COMMAND 


ATION I 
- aiedapeptel means 


Renan 
8 


3591 000001 .CCLR= BITO ‘CLEAR TC RR 
3592 oo0002 E- NOaT= Bt TG jNO LAT ATT ENT ION N Rote TTON LERNARY REG 
3333 990004 E-UATT= BITe ieD ATTENTION (SEQUENTIAL ONLY) 

9s 0020 E- LAT= Bita rent Alot RESET WITH CLEAR 
3096 000040 E.SCLR= BITS er ane DID NOT CLEAR DRIVE 
3598 000100 E.ILLD= BIT6 COMMAND 
3599 0004 E- ore BITS ae L i. OADING HEADER 
3600 01900 E- CERR= BITS i VER SERVICING 

te one < + 4 
3602 E.CMTO= BIT14 fh My E CCOHMAND TIME OUT (QUEUED ONLY) 
03 100000 E.MDS= BITIS :MULTIPLE DRIVE SELEC 
003054 000000 O.WAIT: .WORD 0 ;PARAMETER BLOCK OF THE DRIVE 
3606 :WAITING FOR C COMPLETION 
003056 000400 W.MTIM: .WORD 400 +LOOP COUNTER FOR MILISECOND SCAN OF DRIVE 

3608 003060 000400 W.MILI: .WORD 400 :16 MILISECOND TIME FOR PROGRAM 
3e9¢ ; CPU VALLE 
3611 : <e 8=S ean 
361e A 
3613 ; 11/05 100 
3614 : 11710 
3615 : 11720 
3616 : 11734 
3617 : 11/40 
3618 : 11745 400 
3619 : 11750 
2620 : 11/70 


SEG 0072 


CZR6END0 RK611/06 SS VERIF 2 
CZR6ND.P11 os 


R6 10-JAN-78 10: 
3621 003062 000300 
ee 
Sac 
36eS OC 000000 
36 00307e 000000 
3628 0030 000 
3629 3075 O02 
w 3100 000 
3632 
3633 
3634 003101 000 
sa 
=e 003102 001 
3639 003103 002 
3640 Bp3108 004 
3641 003105 010 
3642 003106 020 
3643 003107 040 
3644 003110 100 
364S 003111 200 
3646 
3647 
3648 
3649 003112 002630 
se 
3652 
3653 
3654 
3655 003114 000000 
BE cons on 
3658 B031 i 000 
3923 003120 000 
003121 000 
3661 003122 00 
D03123 00 
003124 000 
3664 003126 009 
3665 O60 158 
3666 0031 004 
3667 130 000 
a5 fle BB 
ae mi 
Baie 
ee 
ae 
3676 003141 000 


004 


MACY11 30A(10S2) 


010 


10-JAN-78 12:02 PAGE 74 
DRIVER PARAMERTERS 
W.SEC: .WORD 300 ;SECOND COUNT COUNT FOR ALL COMMANDS 
W.8SEC: .WORD 3000 :g SEND Por DRIVE. eve DOWN 
W.MIN: .WORD 30000 ia IRUT IME FOR YE gy GE ROLE 
HOR.AD: .WORD O : ADDRESS FOR READ ALL HEADERS 
HDR.CT: :WORD O j NUMBER ADERS LEFT TO READ FOR READ 
1. 1SRL - BYTE g wm s INTE T OR RELEASED COMMAND ISSUED 
W. TIME: .BYT 5° ‘DRIVES Sooke WATCH-DOG TIMED 
SBTTL INTERRUPT MASKS 
INTMSK: .BYTE 0 ; INTERRUPT MASKS FOR DRIVE IN PARAMETER BLOCK 
; INTERRUPT MASK TABLE 
1. ORV BYTE 1 NTERRUPT MASK FOR DRIVE O 
‘BYTE 2 {INT TERRUPT MASK FOR DRIVE 1 
"BYTE 4 ;INTERRUPT MASK FOR DRIVE e 
BYTE 10 S INTERRUPT MASK FOR DRIV 
BYTE 20 : INTERRUPT MASK FOR DRIVE 4 
“BYTE 40 : INTERRUPT MASK FOR DRIVE S 
"BYTE 100 : INTERRUPT MASK FOR DRIVE 6 
"BYTE 200 t INTERRUPT MASK FOR DRIVE 7 
SBTTL PARAMETER BLOCK TABLE 
PBLKT: PARMO ;ADDRESS OF PARAMETER BLOCK GIVEN WITH 
:DRIVE CALL. MUST BE LOADED INTO PBLKT 
SBTTL TIME FOR WATCH-DOG TIMER 
W.ORV: .WORD O IME FO FOR INSTRUCTION IN PARAMETER BLOCK 
SBTTL PROGRAM pee Reserves) LOCATI 
0 
8 
FORMAT: Y 6 
ERRCNT: Bvt g 
ERRLMT: .BYT 4 
eever: “eve 8 
: .BYT 
PCLKF: -BYT 
XOVLAD: vr 0 
DUL ee: ‘Bvt é 
peecy: “BvIE 6 
Ret ery: YT 0 
DLTFLG: :BYTE 0 


seus TO Le Se DEFiLT OR PARAM MODE 


oS TESTS IF = 


MT H oma FLAG 


FORMAT CONTROL 
fest esunT 


IN BIT 4 OF BYTE 
“a or SUNT onte PS TE on 
F BYT KW1 2 PRESENT 
Lag rt Ru? SIBLY OVERLAID 


int Blea ia ay One OTHER PORT 


SORIT E CHECK 
;DATA LATE ERROR FLAG 


SEQ 0073 


CZR&END0 “y gaeae': SS VERIF 2 
Cc Pl 


ZREND. JAN-78 10:05 
3677 003142 000 
3678 003143 43 00 

? 3144 
3061 003145 sg 
eis 
3e83 Basis 45 uae 
3683 000001 
Soe 
ee uae 
3087 000020 
3683 003150 00000 
3690 
3691 003152 177546 
3692 003154 172540 
3693 003156 172542 
se Glee dooice 
3696 BBSted 104 
3697 000114 


MACY11 30A(10S2) 10- 
PROGRAM SPECI 


OREQSW=BIT4 


AUTOFG: . 


at 
BEVEC; “WORD 
MEMVEC=114 


J 
F 





A 
I 


JO5 


N-78 12:02 PAGE 75 
C RESERVED LOCATIONS 
0 tUNTBUS NAP AY phee 
0 5S FO Thao = at 
0 epyTe = She 
ine P PILE OVERLAIO *Steats 
5 ‘gt ATES P JUS Bt LOADED IF 0 
posers Oto 
fod Y ITCH 
WRI E CHECK DATA SWITCH 
;READ 4 DATA SWITCH 
; OF FSE QUIRED SWITCH 
0 ; SPECIAL FLAG 
177546 ;KW11-L CLOCK STATUS REGISTER 
172540 KW11-P CONTROL AND STATUS REGISTER 
17eS4e tK 11-P COUNT xt BUFFER REGISTER 
172544 ;KW11-P COUNTE REGISTER 
100 ;KW11-L VECT TORAGE 
104 ;KWL1-P VECTOR STORAGE 


S 
:;MEMORY PARITY TRAP VECTOR 


SEQ 0074 


RK611/ VERIF 2 MACY11 30A(10S2) 10-JAN-78 12:02 PAGE 76 SEQ 0075 
siete OB -SAN- TE 10:05 PROGRAM SPECIFIC RESERVED LOCATIONS 
TCONLO: .WORD :LO BITS OF CALIBRATION TIME CONSTANT 
3633 TSONH : WORD 6 HI 118 OF CAL IB Ine CONST 
370 SUMLOL: [WORD OQ iLO T OF FORWARD TT SUM 
3708 SONAR “WORD oR 0 is ve WORD. FOR PAR CONS a 
3704 er ~ “HOR D 0 Stan inc eve in FOR MULTI-DRV Test 
oe pret ee ihe Hetoee & BS seeteee Foun Pac 
3708 go9009 PRVCMD: :WORD 0,0,0,0,0,0 : PREVIOUS CBNMARD STORAGE 
ra 59003 COMSTR: .WORD 0,0,0,0,0,0 ;CURRENT COMMAND STORAGE 
3718 — PRMPLO: - HORD ;PREV. U.B. MAP REG O 
3714 GRRPL : - HORD ;CURRENT U.8. MAP REG O 
3718 BUFF Os {BLKW Db6 ;OUTPUT BUFFER 1 
71 L T: ‘LOW I TS OF CON RTED BINARY NUMBER 
3516 HIGOCT: ‘HIGH BI CONVERTED BINARY NO. 
3719 CODE: j REC RY CODE WORD 
7 BR : 7E of 
37e IVE NO. DRIVE IN_USE 
3782 STALLS: :CURRENT NO. UNIT STALLS TO APPLY 
te ?LAS Mt 


SE 





OOOOOWVIONONVOOOOOOO0O0O000000000000-0000 
aa gos 
~ =z 
zs 
<< 
rn 
o> 
~ 
E 
ow 
= 
oO 
m 
~~ 
mm 
<O 


z ; 
37 ; TO- TED DRIVE NO. 
% OW I INDI ATES A DRIVE WAS ON-LINE 
NeeN: & 
ee sora a ae 
o 
5 XXDPRO: "BLKW RXDE Pry I Save ADORESS 
5 PLOPSY: : :(+) OFF at 
NGOFST: ; :(=) OFFSET 
SA : . BLKW : SAVE ob BARAMS 
Pe XFR: - WORD NO. ACTUALLY XFERRED 
FINCYL: .WO! *FINAL evel R ADRS 
cae FINTRK: By > FINAL K 
Bs ib i a 
HARILM: 1 7776 :MA R LIMI 


T 
oe PINS ey oDRs 
RANSFER MEMORY START ADRS 


| ahaa! 
Paw 





B 
oz 
5 
5 
= 


Ww 
“ 
ur 
W 
v 
3 
Pe 
x 
= 
tf 


CREDO ooo ee ERIE fog «MACY IL SOR CAGE SPECIFIC RESERVED LOCATIONS oa8 cove 
35e¢ ‘LIST OF DESIRED DRIVES TO TEST (IF BYTE=0, DON’T TEST DRIVE) 
3 905610 ORVLST: 

37 S61 001 ‘BYTE 1 ;DRIVE 0 

me Bi Met ey 

1 001 Byt 1 :DRIVE 3 

3761 005614 O01 ‘BVTE DRIVE 4 

505 Bbeeie BBY “BYTE iBRIVE @ 

t  E aegaeeas ST LIST or BRIVE TYPES, O=RKO6, NOM O-RKO? 
see Boees8 = 00 OTST: ne og ;DRV 0 

3768 005621 O BYTE 0 FORV 

re Gees He wef Be 
1 000 ‘BYTE 0 FORV 4 
3772 005625 000 Be 0 DRY 5 
Boeess §=6©6- BBB YE 8 iBRY § 


;LIST OF ITERATION COUNTS FOR DESIRED Tests (1F=0 TEST NOT RUN) 
jHAXZMUN ALLOWABLE NUMBER OF ITERATIONS = 77776 (OCT) 
“ WORD 2 ;TEST 1 
ee Tet § 
7 WO TEST 4 
WORD 2 :TEST 5 
WORD 100 :TEST 6 
jb TS1,0F DEFAULT ITERATION COUNTS FOR ALL TESTS 
* WORD ; TEST 
a" ; TEST 
; TEST 
- WO ; TEST 
WORD 2 :TEST S 
‘WORD 100 :TEST 6 
NMTSTS=<DFLTST-TSTLST> “2 ;TOTAL NO. OF AUTOMATIC TESTS 


5 OPERGT ING PARAMETER LIST 


PRMLS 
: .WORD 0 ;FIRST CYLINDER 
sLAST CYLINDER 


ts WORD Q PFIRST TRACK 
LT: “WORD CAS TRACK 





en is eee WO IRN re ee Se Sa ee eS SS Be ee ee ae 
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be 
Oo 


& eo couoed cow toe 
ee a 
WONTU £ Wl 


REERPESUGANODO Usa uaasse: SoutR IR MTT OO 
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MACY11 30A(10S2) 


10-JAN-78 12:02 PAGE 78 

PROGRAM SPECIFIC RESERVED LOCATIONS 

SO: - WORD Q. 

a4: =: HSRR Og 

53: WORD 25 

PT: ret i 0 

&?: ROB 

-DEFAULT OPERATING PARAMETER VALUES 

PROFLT: . waa 
 HORR 8 ; 3 haan 
“WORDS TT DEFAUL 
> WO! 5 a BEF AuE 
[WORD 23 :S1 DEFAUL 
“WO ; FAUL 
WOR S ; FAUL 
“HOR +65 DEFAUL 
WORD ; iG? BEF AUL 

AOPERATING PARAMETER VALUE LOW AND HIGH LIMITS 
- HOR ;FC LIMITS 
“HO ;LC LIMITS 
‘WORD O ;FT LIMITS 
ie ;LT LIMITS 
‘ z ;S0 LIMITS 
WORD ;S1 LIMITS 
"WORD 3 
“WO ;S2 LIMITS 
i ;S3 LIMITS 
“WORD ;PT LIMITS 
: 77777 
: ;CS LIMITS 
: ;ST LIMITS 
: 177777 


b 


-ASCII /FC/ 
“ASCII /LC/ 


,ASC I PARAMETER MNEMONICS 


‘Maly SES TOR IF SOCDEC) onc lor 00 FMT 
Hibdr ReL aie °BCRRED REID Sat Pr 
ord 


A PATTERN. cet eC 


eee An? HRP 


AHA 


SEQ 0077 





we. 




















1 
177 
17276 
1727658 
DOE 
D060 
N06 1 
N06 1 
B06104 1777 
006106 177777 
906110 177777 
00611 SoS 
60611 
A061 1 
D061 177777 
006 1 
A061 
D061 90900 
DOE 
006134 1777 


;DATA PATTERN OO 


batoo: 


HI-LO FREQ. MIX 


;DATA PATTERN O1 


PATOL: 


HI FREQ. PHASE MIX 


MACY11 30A(10S2) 10-JAN-78 12:02 PAGE 79 SEQ 0078 
Ob San oe 1060S PROGRAM SPECIFIC RESERVED LOCATIONS 
ASCII /FT/ 
108 ASCII /LT/ 
1 ASC 7507 
3 Asc AY 
Hes atl 734, 
: “Bett 7fe, 
1053 “ASCII /ST/ 


c 
.¢ -Pll 


| 
| 


Mt UMacanicauas as saasescre rim a 


3 


RK611/06 SS 
10-JAN- 


Sook 
felefeafe 


+ 


+ 


+ 
aa 


sopsitsts 


BaSRs 


BNSF TREE LUGS ERSRK 
_ 





0 0 ee 








PR ee ee 


RIF 2 


10:05 


07 


MACY11 a oS I Se at 12:02 
PROGRAM 


PAGE 80 
CIFIC RESERVED LOCATIONS 


;DATA PATTERN Ge 


PaTOe: 


LO FRE@. PHASE MIX 


;DATA PATTERN O03 


PaATO3: 


MAX. PRECOMP. PHASE MIX 


;DATA PATTERN OY 


PATOY: 


ROTATING BOUNDARY PULSE PRECOMP. 


042642 





" CZRENDO RK611/ 


| CZREND. Pil 


scesecupireyseresaeseaessgss 


SSSSS5506 
NOU SW 


Be ee oe oe oe oe oe oP <= 
BEBRRR ER 











006376 


16-3AN-78. 10°05 
32 


MACYI SPROGRAM SPECIFIC “Bech e eho 


;DATA PATTERN OS 
haros: ROTATING CELL PULSE PRECOMP. 


1 


;DATA PATTERN 06 
L ZEROS 
batoe: 





;DATA PATTERN 07 
; ES 
Pato? 


CZR6ND0 RK611/06 SS VERIF 2 
CZR6ND.P11 10-JAN-78 10:05 


— 


177777 
177777 
177777 
10 177777 
le 177777 
i eee 
6 
Be 
777 
177777 
ieee 


. 
RR 


SSSERRE Bree aaUnNaaeas teszneees 








7 
74 
4O7e 006476 
4 006476 177776 
4078 SOO 177775 
177773 
77767 
727737 
77737 
1776 
177577 
7377 
176777 
4 175777 


4089 006526 167777 


£ 
iO 
NX 
wr 
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PROGRAM SPECIFIC RESERVED LOCATIONS 


TA PATT 
= ae tED 1 IN FIELD OF ZEROS 
batos: 


000001 
000002 
04 


ashes 

000100 

ees 
1 


040000 
100000 


ATA PATT 
0 aFe EBS O IN FIELD OF ONES 
Pato: 


07 


ZR6NO0_ RK RIF 2 MACY11 30A(10S2) 10-JAN-78 12:02 PAGE 83 SEQ o08e 
St ey eee (a 8 10:05 PROGRAM SPECIFIC RESERVED LOCATIONS 
4090 7777 157777 
4091 239 133555 37777 
403e 006534 077777 77777 
4 
dose 
4036 ;DATA PATTERN 10 
- Satie ALTERNATING 0-1 
uos8 bE * gseses 
4 2525 052525 
Oseess 
0 
0 
pese5e 
052525 
052525 
052525 
05252 
052525 pesese 


;DATA PATTERN 11 
ALTERNATING 1-0 
bagi: 


PU LOU OOOO LUN -ODSIERE OHS 





Be i 
SR 
bt 4d 


bb bb be be bb be be 


125250 
1 125252 
125252 
1g52be 
34 125252 
125252 
36 125252 
37 
38 
39 
40 ;DATA PATTERN 12 
41 SHIFTING ZEROS AND ONES 
42 36 batie: 
43 36 000001 000001 
4 006640 000003 000003 


O0664e 000007 000007 


eee eee eee eee 





cere Te SS VERIF 2 
CZR6NO0.P11 10-JAN-78 10:05 





consedeabimenaieninbed « 


o 
» 


nie 
702 


adalat 
SHSOEVOT Luo 


BSSVRRLOWH- SSO VT Low Ova Vo Lone oe Von 


SEELCELCECSCSCLCELCE SEC ECE EC SCE CECE CECE CEC ECS ECCS ESE CSL ELE LESS LLCS 
oO 

-_ 

N “ 

“N 

tf 


ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee 


000017 





00 
000000 


MACY (1052) 10-JAN-78 12:02 PAGE 84 
o sPROGRAM SPECIFIC RESERVED LOCATIONS 


T TTERN 
eo PRT OREOSTTE ROTATING 
bati3: 


T TTERN 1 
wR PRE cELIDO-RANDOM (COMPUTED BY PROGRAM) 


SEQ 0083 


78 10:05 


CZREND0 “vy de SS VERIF 2 
CZR6ND.P11 1 


006774 


007036 
007044 


007050 
007056 


posols 0SS103 
O4e116 000060 
026440 051040 
030461 051057 


MACY11 30A( 1052) 


033122 O2ZR6N: 
033113 SUBVER: 
030113 


O-JAN-78 


pez0e PAGE 8S 
PROGRAM SPECIFIC RESERVED LOCATIONS 


. WORD 


-USER-DEFINED DATA PATTERN 1 
AHPEBTOE . 


re 1 8 
1ePaey Hf B 83 
167230 j WORD 03 
B5eeue tHORD Oe 
016723 :WORD O06 
107351 :WORD 07 
43564 ?WORD 10 
Ee Be 1d 
114356 :WORD 13 
046167 :WORD 14 
123073 ;WORD 15 
151453 *WORD 16 
164616 :WORD 17 
MINLO1=1D24375 ;LO BITS OF SPEC’D MIN ROT. LATENCY 
MINHI1=0 tHI BITS OF SPEC’D MIN ROT. LATENCY 
nese =goesee® ih? Ute Se spee-B ex Ror. LavENey 
RAKLO2=1D 0 iLO BITs OF re: max 1 CY SEEK TIME 
r 4 . 
RAXLOS= #038000 :C0 BITS SF &B Max a Fk TIME 
= e 
MAXLO4Y=*D9464 tg if GF SPEC’ MAX iG aE SEEK TIME 
MAXHT4= | a sHI Wy OF C70 MAX 410 Cyt EK TIME 
FAOLNG= 10700 LON R SEEKS = = 8B Bei aS 
= . RAC 
Bstencoli iBSeee NT CYLINDER =245(10) 
HVRCER=! Itz tH ERROR 
OPIERR=BIT3 :OPI ERROR 
DCKERR=@174 :DATA CHECK ERROR 
ECCNC ;ECC_NON-C CTABLE 
WCERR Te Me TE CHECK ERROR 
ABORT=BIT OR 
LEV2ER=B1T8 *LEVEL TWO ERR 
HRSPOS=ELT (0 HS Tiaecaure 
RCLREQ=BIT11 tRECALIBRA QUIRED 
DRNAVL=BIT12 :DRIVE NOT RELSD BY OTHER PORT 
ANYDER=BITIS ‘ANY ERROR DETECTED FLAG 


-ASCIZ <¢15><12>/CZRENDO/ 
-ASCIZ & - RK611/RKOE-RK 


O07 SUBSYSTEM VERIFICATION : PART & 


SEQ 0084 
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ESREND Pit 18-3AN-78 10:05 PROGRAM SPECIFIC RESERVED LOCATIONS 


£= 
2 
8 
: 
ORNSR 
9 
wi 
i 
tf 
8 
3 


eee 
NINANNS 
BR TRON 
hover +t | 
RRR 
NOU 
—— 5 


> 
> 
2>/LAST PHYS MEM ADR = / 


1 PARTI: 236) 417¢15><1e2 
PARTe: .ASCIZ 727<15><le 
43 LSTMEM: .ASCIZ <15><12><1 


= 
sali 


OVLODR: .ASCIZ /OVERLAY LOADER ? (Y OR N) # 7 


ae 

uy 

=] 
NOOO £00 


= 


XXDPME: .ASCII /REMOVE XXDP PACK FROM DRIVE, INSTALL SCRATCH 7<15><12><377> 


ae 8 
we 


2 
OnE 


? 
R 
=r 
NOW UiftercOW 





0050 
pPe At .ASCIZ /PACK, AND HIT CONTINUE TO PROCEED. / 
04711 
020105 
047522 
PRMINP: .ASCIZ <15><12>/PARAM INPUT MODE/<15><12><12> 
2504 
630588 RKBADR: .ASCIZ /RKO6-O07 BUS ADR = / 
1 101 1 

4298 007422 000 

4299 74, 1 1 466 RKVADR: .ASCIZ /RKO6-O07 VEC ADR = / 

4 74 41505 

4301 74, 1104 440 

4303 007446 5 033060 O3005S RKPRTY: .ASCIZ /RKO6-O07 PRIOR =/ 

4308 0074S4 051120 047511 

: rae Bepie2 020075 SWRMSG: .ASCIZ /SWR = / 

4308 osene 047040 OS3SOS NEWMSG: .ASCIZ 7’ NEW = / 

4310 a O05015 051108 024126 DRVSEQ: .ASCIZ <¢15><12>/DRV(S) = / 
te 

431 007522 1TBa peer 79 este BADDRV: .ASCIZ /DRIVE / 


4313 007530 O02 


Oo 
Oo 
Oo 
Oo 
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SEECLCLELSCLCLLIG£ 
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1 7117 O4e4SS 
044535 oe2123 00S015 


W 
vote 
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ne 
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st 
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Statatatat att atatata 
EREFONERS ETON 


Rae 
tu 


MACY11 30A(10S2) 


NXDRIV: 


NTREDY: 
WRTLOK: 
ALNPAK : 


NODRTS: 


CNTRDY: 


HLTRQD: 
ALDRVS: 


TSTMDS: 


ENTLCI: 


DFTEST: 


TLSTHD: 
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-ASCIZ 


-ASCIZ 
-ASCIZ 
-ASCIZ 


-ASCII 


-ASCIZ 


-ASCIZ 
-ASCIZ 


-ASCII 


-ASCIT 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


/NON-EXIST/<15>< 12> 


“NOT RDY7<15><12> 
/WRT-LOCK/<15><12> 
/LOADED WITH ALIGN PACK/<15>< 12> 


€15><12><12>7%% NO DRVS TO TEST/<15><12> 


7PRESS “CONT” WHEN RDY/<15><12> 


/ZHALT REQ/<15><12> 


SEQ 0086 


<15><12><12>/7TO TEST ALL DRVS TYPE “A” <CR>, ELSE <CR>7<15><12>7% 7 


€15>¢<12>/7L = LIST TESTS/<15><12> 
“C = CHANGE TESTS/<15>< 12> 


“I = INPUT PARAMS, RUN TESTS/<15><12> 


(15><12>/ENTER L,C, OR 17¢15><12>/7% 7 


“TO DEFAULT TESTS TYPE D <CR>, ELSE <CR>7<15><1l2>7% * 


«15><12>/TEST ITERATIONS /< 15>< 12> 


JO? 
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St Sines NEY puceee passes 


4326 3 EXPLAN: .ASCII <15><12>/T = TYPE PARAM LIST/<15>< 12> 
37, 10¢ 

4374 Ol1C 1 6040 

4375 1 Ole 











4335 1c .ASCII 70 = OPEN PARAM LIST/<15>< 12> 
4 ib: 
rr 
4338 1030 
aae0 10310 -ASCII /S = SET INDIVIDUAL PARAM’<15><12> 
' 
y 103 
EES 
~ i .ASCIZ /R = RUN TESTS/<15><12> 
' 
4 7 10; 
4 1036 PARMDE: .ASCIZ <15><12>/ENTER T,0,S, OR R/<15><12> 
ae 
4 1 
: ; 2 DUACES: .ASCIZ <15><12>7% DUAL-ACCESS DATA TEST *7<15><1l2> 
4 1 
oe 
: { MAWRDC: .ASCIZ /MAX WORD COUNT = / 
43939 1 
me i SECNL1: .ASCII 7#*% SO>SI1/ 
its ise . NOTALD: .ASCIZ / NOT ALLOWED/<15><1l2> 
44 10514 O0¢& 
mg i De SECNL2: .ASCIZ /7#* S2>S3/ 
te i TRKNLW: .ASCIZ /## FT>LTZ 
yy 10s44 ¢C WC2BIG: .ASCIZ /7** WC OR MA TOO LARGE’<15><12> 
4410 O1 D 
441 1 al: 
441 1 OS 
441 ise 
wis i 75 1 DFQUES: .ASCIZ /’TO DEFAULT ALL PARAMS, TYPE D <CR>, ELSE <CR>7<15><12>7% / 
Mite, Bi0e15 
441 1 
Gs fies fees 
mani | O1Ge46 1474 
uty 10654 
4423 010657 01s PFIFTN: .ASCIZ <15><12>/USER-DEF PATT 15 :7<15><12> 
424 O10664 O26S22 2504 
4425 010672 O40S20 OS2le4 O30440 


KO? 
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44 4 l2 

i 708 eis 100 SELP1S: .ASCIZ <15><12>/MOD PATT 15 :7<15><12> 

44 4 1 

st 5 att, MOFY1S: .ASCIZ /TO MOD PATT 15, TYPE M <CR>, ELSE <CR>7<15><12>7% 7 

44 101 124 

44 4 4524 

44 440 0 

Se tee a Gas 

443? : 

44 pat abt 3 116 ENTPAS: .ASCIZ <15><12>/ENTER NO. OF PASSES (1-77777) :7¢15><12>7% / 

: if 


RIR 

r+ 4 - 
ay 
Be 
HERR 
patie 


nate DROPDR: .ASCIZ <15><12>7%% DROPPING DRV - 20 ERRORS/<15><12> 


Ne 
cane 
“NI 

- 

w 


bb be bh be be be be be bb be a he he bebe 


1 
1 
101 
1 
1 
1 
1 
444s 1056 04 
Ss te Hs 
444 ll lll 
44 1106 
hat 1ile bo5018 cole 1505 TSTORN: .ASCII <15><12><12>/TESTING DRV / 
4453 ll 0s3 ™ 
4yen4 é ti? 495 1 000 DRVNO: .ASCIZ / 7<15><12> 
4455 011135 104 1 900080 DRIV: .ASCIZ /DRV / 
me 9 1186 a0 1 CART: .ASCIZ /CART. 7 
1151 1 1 SERNM: .ASCIZ /SER. NO. / 
4459 O11156 04751 Bogoag 
1164 00501 103 FACTBS: .ASCIZ <15><12>/FACTORY / 
4461 ll 28 OSi11 900 
wes 1377 1 225 052108 SOFTBS: .ASCII <12>/SOFTWARE / 
4464 0 121} 10e ove101 9519440 BDSECT: .ASCIZ /BAD SECTORS :7<15><12> 
44ES 1216 O41 24 
466 O lect 035040 005015 
4467 0 1 3) O40 047040 047117 NOFALS: .ASCIZ 7 NONE/ 
wi68 le 000105 
4470 
4471 *MESSAGES USED IN OFFSET-TO-FAILURE TEST 
447 ll 17412 06 OFSHED: .ASCII <15><12><12>/0FFSET-TO-FAILURE MEAS :7<15><12><12> 
W473 Blisue o4see3 Beseea pursed 
dirs lise bisees Rieauh Bigebe 
a49e 51 1S5e Pisa Cor Big ASCII /TRACK CYLN SECT +OFST -OFST/<15><12> 
ie Slims Ging Bike Be 
4480 0113 025440 04311 pegts3 
4481 011326 OGe0040 O4745S 051506 
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4482 011334 006524 ole 
4483 011337 O11 O20011 
44 11344 7 
44 11 4 
44 il 1 
yg 
| ¥489 
| 4489 011363 000 
RE Bigs oe 
ause Bit Byeess 
4433 o118 G30055 g20067 
due Btiats BuP187 Bupa4 
4496 011422 
4497 011430 000 
44 1143) 1 117 
uy 114 
seo? SS Bier 
4502 OL iden il 4 
4503 011465 O46412 710} 
11474 114 ll 
11 17 
4 1151 
11516 1117 
4508 011524 1 
al ni 7 
| Bi 1 O47 
sib GliEss Gira Biers 
4513 011556 O06 Basie 
4e18 ll 1 1d 
1S 011570. 
4e16 il 1 
451 11604 ? 4 
4518 O1161 
4522 oi 1 Besta 
ie ie Bn 
ae BED Geiare S110 
4527 011670 Oe0040 o20040 
4528 011676 O471 
Hise 
4 117 13 
3h 117 
45 117, 116 2 
4533 011734 O41440 OS2520 
Weae Olizad Besess o20040 
4 38 BL? 020126 
453 11754 40 O47516 
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020040 


OBusi6 


Gueszeonre P2reon 
ROS ee Bs 


eis Bese 


R 
Y OSES 


051104 
026516 


0A( 1052) £o°2 
PROGRAM SPECIF 
-ASCIZ 
UNLOD: .BYTE 
Yeeary® -BYTE 
IDENT: .ASCIZ 
FORHLP: .ASCIZ 
TYPMOD: .ASCIZ 
TYPMAN: .ASCIZ 
ENTORV: .ASCIZ 
NOTRDY: .ASCII 
DRNRDY: .ASCII 
-ASCIZ 
NONEXD: .ASCII 
DRYNED: .ASCIZ 


LO? 
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RESERVED LOCATIONS 


<O11><O1l1>7 (UIN) (UIN)7/<15><12> 


;DRIVE UNLOADED INDICATOR 
VERIFY MODE FLA 


0 
0 . 
¢15><12><12>7%**’RKOG-07 HEAD ALIGN AID ***7<15><12> 


7FOR HELP TYPE H, ELSE <CR>7<15><12> 


<12>/MANUAL OR AUTO MODE (M OR A)?7<15>< 12> 


<12><12>7% MANUAL SELECT MODE *7<15><12> 


<12>/ENTER DRV NO. (0-7):7¢15><12> 


7*#% DRV 7 
“7 NOT RDY ! START ORV IF NECESSARY. 7<15><12> 


/ WHEN DRV IS RDY, PRESS “CONT” ON CPU.7<15><12> 


7*#% DRV 7 
“7 NON-EXIST OR OFF-LINE ! PRESS “CONT” TO RESTART. 7<15><12> 


SEQ 0089 


CZR6ENO0 RK611/06 SS VERIF 2 
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533 


eal 


4644 

4545 
46 

4S47 

doug 

45 

4 


4ESY 
4555 
45 
45 
4 
45S 
4 


1 
4562 
4 


B1i796 be11i7 
1776 046055 
1 


ee 
_— 
£ 
hh 


ee ee 


FOOONERSOD 


Pere 


DOOOOOOOOOOOHOOO00000000 OOOOOOO OOD 0000000000000000000000 


ee be 0 


ROW 


ru 
£ 
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gers 


047111 
1120 
149 
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NOTLOK: 
NODRLK: 


ENTMOD: 


MANEXR: 


DRIEXR: 
MANALN: 
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-ASCII 
-ASCII 


-ASCIZ 


: .ASCIZ 


-ASCIZ 


-ASCIT 


-ASCIT 
-ASCIZ 
-ASCIZ 


7*%*% DRV 7 
“7 NOT WRT-LOCK ! PLEASE SET WRT-LOC SW .7<15><12> 


4 THEN PRESS “CONT” ON CPU. 7<15><12> 


7*% MULT DRV AUTO-SELECTED ! PRESS ‘CONT’ TO RESTART. 7<15><12> 


(12>/ALIGN, VERIFY, OR EXERCISE (A,V, OR E) ?7¢15><12> 


<12><12>7% RANDOM SEEK EXERCISES IN PROGRESS / 


ZON DRIVE 7 
4 *7¢15><¢12> 
<12><12>7% MANUAL SELECT ALIGNMENT #/7<15><12> 
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4835 


489 


7 
BSE 


scesceseeeasts 


iets states ra 
Be Bet ee eb ee pe be te R 
WOnNCU CWO 


ro 


poe 
RE 
— 


SERRE 


DOOOOOOOOOO OOOOH OOOOOOOOOOOOOOOOOOOOOOOOOO0O0000000000000 


eb be 


—7 


Oo 
«fu 


Pre 
ot 
St 
ae 

—— ® 
Or 


| 
£ 


J 


bb bh be bh bb bb be bb bb bb bb eb = ee 
= 


as 
~ 





28 8 
nee es 

4 

ee 


SR ORUASINR TER Bee eSa TEER ION IED 


Pay et ot re 


_ 


AREwVaoMWN 


SREROSER ISSR SE 
FER 


=e 144 
3102 0415 020124 
3110 OS11 044S03 
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MANVFF : 


HEDPOS: 


SOR7: 





105 
127 


28 
eooet 


NOUS UE 


te AUTALN: 
610 
101 
OS 
e 
alee AUTVRF : 


peg.e8 RISEL: . 

14 VSEL: . 

ooso015 

nara te 4 AUTEXR: 
10 

054105 

042523 


DTYMSG: . 


ENTHED: . 


RWNRDY: . 


HEDSEL: . 
HEADNO: . 


TYPAUT: . 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


<12><12>7% MANUAL SELECT VERIFY #7<15><1le2> 


/HEADS AT CYL 365 (OCT) (760 RKO7)7<15><12> 


ZENTER DRIVE TYPE 7 
/ : <6> OR <7>7 


<12>/ENTER HEAD NO. 


(0-2):7¢15><12> 


“TYPE <R> WHEN RDY :7¢<15><1lea> 


“HEAD 7 
7 SELECTED/<15><12> 


<12><12>7% AUTO SELECT MODE #/<15><12> 


<12><12>7% AUTO SELECT ALIGNMENT #7<15><12> 


<12><12>7% AUTO SELECT VERIFY *7<15><12> 


«12> /7DRV 


/ 
/ SELECTED/<15><12><12> 


(12><12>7% AUTO SELECT EXERCISES #*/7<15><12> 


@ 


SEQ 0091 


C 
Cc 


PEROT 


re 
a 


a 
Ue 


ss MASEL EE SUS 7 


RK611/06 SS 


Pil 10-JAN- 


ONENNERESS 


Bisa Ry SebeewweuE 


Oo0000 oO 
perararas 
fwrre 


DOO 
Boe 
8 


IF 2 
10:05 


1 
1 
1 





O4ele2e 


MACY11 


01 
51119 
1450 
S14 
000 
Se 
10 


coco40 


oooo4e 
oooo4e 


003116 


177776 


30A( 1052) 
PROGRAM 


a 


DFSTRT: 


4S: 
PSTART: 


CMSTRT: 
. SBTTL 
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1 
SPECIFIC RESERVED LOCATIONS 


-ASCIZ 


NHMRHHNNNNNNNN 


Pa PORRRRRRRRARD 


BB 


anhanlenlenlent” San lan Lamina Len Lambo Len Lente ete) 


NNNNN 


i 


- EVEN 


MOVB 
CLRB 


MOV 
TRY TIALISE Rene ESMMON Tats 


<12>/7SHORT OR LONG (S OR L) 77¢15><12> 


ZEXERCISING DRV / 


4 #¢15><12> 
7%#% CANNOT 


CAINO 
SANN 


CANN ANNNAAN 
- /-2232> 
hh alia 4 
\ v 
A AAA AA 


SSNS %. SSS 


Y®S 
+ %, Su 
NON 

% 


POF Lae 

DULAC 

ERRCNT 
sORVTST, a#4e 


#NEWPAS , a#42e 
CMSTRT 


#1,MDFLAG 
puLacs 


READ BAD SECTOR TRACK! /<15>< 12> 


3 SET FLAG Fon 8 cou! MODE 


DUAL-AC LAG 
; CLEAR ERROR COURT FOR RESTARTS 
SEE IF EOP RETURN ADRS = DRVTST 


RE 
;BR_IF NOT DRVTST 
;SET RETURN ADRS = NEWPAS 
; PROCEED 


;SET FLAG FOR PARAMETER MODE 
;CLEAR DUAL-ACCESS TEST FLAG 


;BLOCK ALL INTERRUPTS 
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4706 ;;CLEAR THE COMMON Tags (SCHTAG) ARE ARE Arion ; aaa 

i ine nie tRejs ‘ Hi FIBST bocalt OGaTEON 

471 1 CMP ie + ’ 

471 13430 O01 BNE LOOP BACK IF NO 

471 13432 1oF0e 5 Ee TUP THE STACK POINTER 

71g INITIALIZE A Feu 

471 13436 012737 ss . eee IOT VECTOR FOR SCOPE ROUTINE 
Ea RS He ere pore om or 

4717 Ol ¢ VECTOR FOR TRAP CALLS 
eee ee ae 

4726 1351 13737 MOV *ScOPet 3;SETUP END-OF PROGRAM TER 

ee Bites! Bieber ee COME RT eB HE 

47 1 112737 MOVB 81, SERMAX OW ONE ERROR PER TE 
| «aoe Bised5 815735 g-» Bee mess Fo" SCOPE 

47 ;;SIZE Fee 0 ITCH regiit oe | I 

4729 (Ol 01 HsEQUAL Ov abe VEC, -(SP) . 

ns i Nese plea MOV Pir oR . isha i coe cee SWICH REGISTER 

4732 013576 012737 MOV SDDISP,DISPLAY :;AND A HARDWARE ISPLAY REGISTER 

4733 013604 022777 CMP 8-1, ISWR is iay TO REF HARDWARE 

4734 Olsbi2 01012 BNE xx} Ho a eonite TRAP OCCU CURRED 

737 O1zeie atat3 013624 64S Rov Sees, (SP) : Bae UP FOR TRAP RETURN 

Grea Bisees flere? O0I7 BRING SS TR SRURERN EG oo gy! POINT TO sorTune son 

a7uL 013640 012637 O00004 66S MO (SP)+,a8ERRVEC ;;RESTORE ERROR VECTOR 

do4a Bi3eed 793935 BBA358 Shia = Sapte + FT EEOR CPR Se U 

4 001341 TB IZE,SENVM 3: USER SIZE UNDER 

at B13e66 Bia7a3 001342 001140 sn ROY Seurec, SWR ENB USES abt surtcn” a 

we Bhs ec Spam SLE TE sega. Fe 

i750 013674 o00006 o00004 MoV sieRavecs c TIME-OUT VECTOR 

4 Ge 1 hearth 00114 nov as aE, igeT MeN PA M PAR Ty_TRAP_VECTOR 

De Stes Be a Mt Ma sods oe 

4755 bt 1127 144 001115 Move SET FAX CNT TO TG FoR SSCOPE 

4756 013734 1 003130 CLRB Pe ERROR COUNT FOR CURRENT DRIVE 

mats Bt theca? es Wp si. re TPE PROGRAN M5 FOR PART 2 

res Siaree iene, Borise Nee ipa" 

aver B13e 182793 BeSide TST NOTYP ;SEE IF OPERATOR NOTE SHOULD BE TYPED 


DOS 


tee yh Te SS VERIF 2 MACY11 30A(1052) 10-JAN-78 12:02 PAGE 95 


CZREND.P 10-JAN-78 10:05 INITIALIZE THE COMMON TAGS 
Wes re 104 O6SEE0 BPE anomse {TYPE, ObERATO OR NOTE 
ie Sito Maas SLSR ooes HB GREER Sr Gynt Ba esr 
4767 O1 TYPE S A TEST *” 
ie Gaus Ale BABS some som RY MERE ares 1 see 7, a 
Fee oF be. Pear 
: 
ura OL i HOV. SPR? BRARVEC YS F'PRIOR. = 7 FOR HMOLER 
BIG be. Han aera a 
4 { { 1 HOV #PRVCMD, R1 ou Vv Cc 
4778 014074 000006 MOV ;SET COUNT 
4779 arte Bosgel 42S: CLR (RI 3+ : A 
eh BIMigS er 15 BOURNE 
’ 
be ae : heated 017320 ° cr LS NEWPAS By. i N MODE begs 
A 
Ue BRIE BR? PRES suse wus: AY HORE Ean i. Prt ARs ROO 277m 
4787 O14 1 123456 054734 MOV g123456, SLONUN gs pak 
1788 a ee BasPsq ue al if, Fe MOBP’ PREVIOUSLY davep 
; 
ieee Be |. Ge ee” | aa 
hE (ea a ne ees 
4 14 001370 MOV CT1,RO IGET APT RK TOR AND PRTY 
47 14176 0 O01374 3036 MOV ,» RKBAS : APT RK ADDRES: 
W737 ots 2 haere —_ Ae? se] ?, SERV fetal orp 
4 
decd Biust0 BiSese 159548 oosoae y BANE CTIAROs «ESET BEFAULT MASE ADDRESS’ 
4801 014226 110037 003040 18S: MO RO, RKVEC ne Mt VECTOR 
We05 | O14536 sunnah teBsiéRO™é TY NTO BITS 5-7 
4804 14240 42700 177437 BIC 8177437 RO CLEAR OT OTHER BITS 
Boe Bi G50 baat 32 neat MP LORV 180 Check L ORIVES 
408 
4809 
4810 {BEGIN PARAMETER INPUT MODE 
He11 014254 104401 007352 ios: TYPE ,PRMINP ;TYPE “PARAMETER INPUT MODE™ 
4uB13 ;OPEN RKOG UNIBUS ADDRESS FOR MODIFICATION 
4814 014260 013746 003036 MOV. _RKBAS, -(SP) N STACK 
Hels Olee4 104401 907400 TYPE RK Type Ri be BUS ADR 
481 14270 47 1016 ISR PC. GETPRM NEW RKBAS VALUE 
W817 O14274 012637 003036 MOV (Sb 9s, RRBAS tETORE NEW VALUE 


08 
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CZR6ND. I 
4gi8 ;OPEN RKOG VECTOR ADDRESS FOR MODIFICATION 
4819 914300 013746 003040 MOV RKVEC = (SP) jPUT OLD VALUE ON STACK 
48 14310 04737 03101 JSR PC, GETPRM ;TYPE OLD GET NEW RKVEC VALUE 
4822 014314 012637 00 MOV (SP)+, RKVEC AgToRe NEW Vi 
4823 “OPEN RKO&S INTERRUPT HANDLER PRIORITY LEVEL FOR MODIFICATION 
uge4 O14 374% 003042 1is: = Mov RKPRI,-(SP) jGET OLD VALUE OF PRIORITY 
4 14 16 (SP) ;GET IT INTO BITS O- 
uBe? Olu ie Ast CSP) 
1825 13a soi 7446 Pee‘ RKPRT T “RKO6 PRIORITY = “ 
14 737 OSiGie JSR PC,GETPR ‘TYPE OLD, RET NEW RKPRI VALUE 
“eae plugse Gece 00004 oe age SEE DFA LEST DEY 
4834 014354 7 000007 CMP RO, #7 ;SEE IF LEVEL 7 OR LESS 
4B35 014369 11 BGT 1e$ ;BR_IF NEW VALUE TOO LARGE 
4 14366 SWAB RO ;GET PRIORITY INTO BITS S-7 
4 14 ASR RO 
4839 Lie ASR RO 
48 14 1 003042 MOV RO, RKPRI ;STORE NEW VALUE 
Weyl O1437— 104401 001315 TYPE $CRLF 
ue4e Ol4aGs 004 ar 6S 
4843 014404 104401 o0S264 123: TYPE ,BUFFO ;ECHO BAD INPUT 
4844 O14410 104401 001314 TYPE SQUES 
He4s O14414 Qo074i BR 11s ;GO ASK AGAIN 


CZR6ENDO RK611/06 SS VERIF 2 


CZR6ND.P11 
4847 O14416 


10-JAN-78 10:05 
105037 003126 


MACY11 30A(10 
INITI 


16S: 


Se 
AL 


) 
I 


FOS 
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ZE THE COMMON TAGS 


CLRB ERRCNT 


PAGE 97 


;CLEAR ERROR CNT FOR RESTARTS 


SEQ 0096 


CZR6ND0 RK611/06 SS VERIF 2 
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e3 014422 012737 014434 
4850 014430 000137 015176 
4851 


4852 
4853 


MACY11 30A( 
INIT 


ooo004e 


10 
I 


Se 
AL 


08 


) a - i$: 06 PAGE 98 
IZE THE COMMON TAGS 
MOV #ORVTST, ae42 ;SET UP DUMP re On TURN FROM SEOP 
UPON IN OF REQUESTED PASSES 
JMP CHKLST Go CHECK STATUS oF NMARKED DRIVES 


SEQ 0097 
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yes yy TL 1 IDA tae | CC 
485s : $8 L TO = DESIRED ORIVE I " r, 

ges aut tA BaYVe Rungers. THE GHREENT eat OFAYAS A Neh 

4858 :#CHOICE OF DR S REQUESTED BY TTY INPUT, AND T 

4859 s#ORT vk ECKED FOR VALIDITY AND PROPER’S Tatus 

4860 ALID, THEY ARE LOADED INTO THE se 


4861 sist {DAVES 
4 nD eee ae Sess SEGA EEN EE EEE OR ERR ERERRERER ER EREREREREEEE 


4864 4434 smvists 
4 aad piengs Ooesus COR oece’ — Ae ert T EN OPERATIONS 
dBee 4444 7 O3134e JSR PC ENBCSR fiat Sra pers 

4868 4450 104401 007717 TYPE ALORVS :ASK I 

4869 4454 g047 3” 034034 JSR . PC, ROCHRS j READ RESPONSE 

4871 ques Ord RVTST 2(42) Ret TURN aa 

487, 4464 dase RVT ?(¢U)_OR ERROR RETURN ADDRESS 
487 W866 7 ST ard IF NULL INPU 

4874 44 1413 BEQ TELDRV ;BR IF NULL ThPuT 

4 44 2737 000101 o0S264 MP #°A, BUFFO ;SEE iF ALL DRI § REQUESTED 

487 4 NE 4§ ; k NO ALL VE 

4 4 1 015120 ALLDRV :CHECK ALL S 

4878 104401 005264 4S: TYPE , BUFFO ;ECHO BAD INPUT 

4879 401 001314 TYPE QUE j TYPE <7) AND <CR>,<LF> 

4 ?GO ASK AGAIN 


BR 
TYPE CURRENT DRIVE bist 


01 
1 
oi 
1 
1 
oi 
8} 
1 
1 
Bi 
1 
1 
pire 
1896 piaeié 
4 4 007506 +ELDRV: TYPE DRVSE ;TYPE “DRIVE(S) = “ 
oe tes fee of HE sepa ge es 
4 814856 12703 p90001 MOV agiT9 R3 HINT at IN TER 
4 3 14 i 1 610 4$: 1318 VLST(R1) : 3 i THI DRIVE 1S LISTED 
ie ge es eae: 
4890 O1 4546 104401 013305 - TYPE acon a M > TYPE A COMMA wis 
oe 4 4 
dee Bideee 829332 wets 005534 BIS #’° cer CH I OTE VERT ORI Oe NBS T 5 ASCII 
4893 O14 4 005534 TYPE RACH j TYPE DRIVE NO. 
wee Bluere Goes os he LIRGAERENT DRive™noie7e> ORTVES 
4896 014574 : ASL NCE BIT POINTER — 
4897 14576 2701 oo0010 CMP #10,R1 i SEE IF DONE YET 
4898 014 1354 BNE >BR IF_N 
4898 14608 905700 Tst RO. i SEE IF ANY DRIVES WERE LISTED 
4 B1aeL 104401 011231 TYPE ,NOFALS Nee ” “NONE” 
4 14614 104401 625 TYPE *NODRTS TYPE “x NO DRIVES To TEST” 
apa 014620 012703 oo00401 MOV #401,R3 ‘PATTERN TO HARK DRIVES 
4905 0146 12701 005610 MOV #DRVLST,R1 ‘DRIVE LIST AD RESS 
49 146 10321 MOV R3, (R1)4+ :MARK ALL ORivES N LIST 
490 146 10321 MOV R3;(R1)+ 
4908 014634 010321 MOV R3,(R1)+ 
4909 614636 010311 MOV R3, (R11) 


| 
ALL DRIVES Dest FRED 


CZR6ND0 RK611/06 SS VERIF eos 


CZR6END.P11 10-JAN-78 10: 
4910 014640 000137 046150 
4911 Bteco 104401 001315 
491 14650 122737 000013 
uaa O lubes d 007227 
wate ' D4 1 7 O41 
waiz Giese ideva7 Oostie 
#319 14700 OO0197 o1ss%6 
4921 147 737 0OS610 
Wee 014718 OOIaD4 
HQ OY nthe pods, 015176 
nase 014724 104401 013334 
ase te Osa 034034 
4928 14734 14434 
4y9eg yer 14434 
4930 14 14S20 
4931 01474 700 
yo 14744 007 
mo ta5e8 1 37 003135 
dese 11585 pero 015250 
w33e O17e0 ae Bieois 
ae BS FE coco 
seat O1sdae 3 001314 
YgYye 1 1 
mee, staat leblie7 oo0sSe6b4 
RQYS Biante eat 00S264 
4946 15024 3362 
wiz Oises oben! 
dgeg pt ehss 1eeie? o0S264 
4952 B1S0ie Opesay 
: : 01S0%6 000757 
see Sted pre7ot 005610 
4387 O150e— Ooe0e! 

#36 15065 Oosoe! 

eet t 4 iSont 005264 
4962 iso 2701 O00060 
4963 015076 112761 000001 
4964 015104 062700 o00002 
4965S 015110 105760 o0S263 


MACY11 398 (10562 


000041 


000060 
000067 


oo00s4 


005610 


26$ 


28s: 


2es: 
9S: 
10S: 


12$: 
14S: 


les 


18S: 


JMP 
TYPE 


B 
; GET 1M ve 


os rAEST 


Aeron DRIVE NUMBERS 


PC,ROCHRS 


BUFFOCRL), #0 
BUFFOCR1),#’7 
OS 

Rl 


R1,RO 
16$ 


— O— 


@ 
c 
7 
7" 
oO 
vo 
D 
— 
— 
ak 


ppetereteg St Fae: 
-—-—-—-DOW Ww 
+++CD 


FOC 
Ri 
Th ores 
"RO 

#2180 ro) 


2a ee ee Te 
oO 


S INTO LIST 
ST,R1 ; 


10-JAN-78 12:02 PAGE 100 
DESIRED DRIVE INPUT ROUTINE 


T 

O REMOVE XXDP PACK 

ORCE OPERATOR INTERVENTION 
IT ca CLR THE LD PTR 


Uh + ee ee ee ee ee ee wee es ee eee es ees ee 


Uevn-w + 


noe ee 3 
zB 


3 


N_INPUT STRING 
rer CORRE 2a 
of RROR RETURN ADDRESS 


IF NULL INPUT 
re W DRIVES WILL BE SELECTED 
rs 


M™-----/") 
mm MCNO 
—S www 


“ACCESS FLAG SET 


OTHE TEST INPUT ROUTINE 
; K FOR INPUT 
;SEE_IF TOO MANY CHARACTERS TYPED 
;BR IF_NO ee 


w 
m 


C 

5 <?> <CR>, <L 
;GO AND ASK AGAIN 
; CLEAR NTER 
;SEE_ IF _DR — 
;BR_TO_EC iNPU 

tBR TO ECHO 

EINCRENENT. CHAR POINTER 

; SEE HORE sie ere 3 CHECK 


INCREMENT CHAR POINTER 
'GR TO CONTINUE CHECKING CHARS 


VE NUMBER 
YET 


SEG 0099 


kenetee RK611/06 SS VERIF 2 


ND.P11 10-JAN-78 10:05 
4966 015114 001364 
4967 015116 o00427 
i358 SISIED BTRPEE cosa 
a7) O1eise 19273 85 
4972 0151 
-4873°«O151 1 000377 
| 9974 015142 012701 000001 
4975 0151 005610 
| 4g 151 193 
49 15154 14 
| 4978 O15156 760 ooo001 
4979 15164 
| G 15166 
4981 015170 Oe2700 O00010 
4982 015174 001364 
Ye oe 
| 4986 015204 bor4i0 
| 4987 015206 010037 ooSso0 
4 01S2i2 004737 032436 
| 
| 49390 
oe eee 
| 4993 015226 S200 
4994 015230 O22700 000010 
| 4989S 015234 001361 
usa? Olesue Sosoeo BaeeiD 
4998 015246 000767 
4999 
00 
5004 
5005 
006 
5007 
5008 
5009 
010 
5011 
5012 
5013 
5014 
5015 
5016 
ante 015250 104401 010000 
5019 O15254 104401 O10102 
2020 O1ese0 ODN737 034034 
5021 015264 014434 


MACY11 


001341 


005610 


o00S620 


30A(10S2) 10-JAN-78 12:02 PAGE 101 


TO - DESIRED DRIVE INPUT ROUTINE 


BNE 18$ ;8R IF eB YET 
BR CHKLST ;GO CHECK DRIVES FOR VALID STATUS 
ta ee IF ~~ REQUESTED 


sELEAR DRIVE ve 


SDEVM, R3 ; APT DEVICE MAP 
BITe #8177, SENVM SEE IF NO SIZING 
MOV 8377 SET "FOR é1ziNe 
1S MOV #BITO,R1 :SET BIT POINTER 
2s CLRB DRVLST (RO) i INIT AL IZE DRIVE ENTRY 
BIT R1,R3 SEE Fat S DRIVE IS REQUESTED 
MOVB #1,DRVLST(RO) MARK THIS IVE_IN DRIVE LIST 
4S: ASL Ri jSHIET 8 IN ER 
INC R ; INCREMENT NUMBE 
CMP 810, ,RO j SEE Ir KING ALL DRIVES 
-CHECK ALL DRIVES MARKED IN DRIVE L iF FOR R STATUS 
HKLST: CLR RO ; IVE 
2s: rsie DRVLST(RO) jSEE F at IS MARKED IN LIST 
MOV RO, DRIVE ?SET DR 
JSR PC; SCNDRV j CHECK STATUS OF TH Thies 5 ORive. 
;IF NOT VAL 
6S ent aeeOve ETE BO OR SENDRY 
MOVE $TYPFMT,OTYLSTC(ROS ;SET fe. O=RKOS, 4=RKO7 
4$: INC RO ; RETURN F ORIVE IS USEABLE 
CMP 410,R0 : SEE IF (D0 CHECKING LIST 
one TELDRV >GO TO LI 1 SELECTED DRIVES 
6S: CLRB DRVLST (RO) ?REMOVE I ID DRIVE FROM LIST 
BR u§ ?CONTINUE CHECKING THE LIST 


jae e tee RN ecImeD ital tut ROUTE eee 


T ROUTINE 
sets 1 Be RR put OF OF DE ach TESTS AND ITERATION 
pee ie Cous Th CKED FOR V IDITy, 
i ERAT gies Cae CORDED WaROCt 
ister ‘EIST te . ON VALUE OF DEO NDTCATES. 
causes y oN Hug OR I”. parang. 10 ‘8 ee 
d fo Hast to 
OF PROCEED WITH BE FECTION 
HiVretnere CF ) J CAUSE Sale ih ale RUT RT TO ORVTST. TYPING 
;* AUSES RE 7hRN TO 
EEE SHEE HHH HEH SH HH SHH HEEB HEE IEEE HEEB HE RHEE 


DETERMINE L »C, OR I MODE 


ASKTST: TYPE’ ° ,TSTMOS ;ASK FOR TEST INPUT MODE 
ASKTMD: TYPE "ENTLCI :TYPE “ENTER L i 
ISR PC, ROCHRS 7READ RE 
DRVTST :(#C) RETURN ees 


SEQ 0100 


CZR6ND0 RK611/06 SS VERIF 2 
C2R 


TEEree 
PERSE 


Oadei6 
o0000e 


6ND.P11 10-JAN-78 10:05 
S02ee 015266 015254 
5023 pias?e 1 
Ser Sleere RIO cones 
ae i be 1314 
1S31 27 000114 
S031 18826 DO0197 gisosy 
Se BIE BIO sue 
By i 2 000111 
S08 DISS OO ou 
5038 
2033 S3S4 104401 010204 
soul Bib Oos0, 
S043 015366 004737 O34346 
SO44 8 pace 3) B01 343 
So4s Has oe See 
RR EAP coms 


0 hh he 


440 

e nhs b 005630 
5057 S44 OOS644 
see Bey le) 
50 000100 
S060 S466 000137 015254 
$061 
2 1S4 4 010130 
cies SIEUE sao) BlOARe 
5065 015502 014434 
50 tee 015254 
S06 15506 015472 
S068 015510 OOS 

3 Bizelé pals 

O 015514 7 000104 
507 i1SSee 001405 
cre Giese: (etn BRtRty 
stra SEER ARR! 
5076 015536 012700 OoOoS644 
$077 O1S54e O1e702 005630 


MACY11 30A(10S2) 


00S264 


o0S264 


o0S264 


oossee 


oossee 


163456 


o00S264 


10-JAN-78 
TO - DESIRED TEST INPUT ROUTINE 


12:02 PAGE 102 


SKT ;(#Z) RETURN ADDRESS 
ASKTMD :(4U) OR ERROR RETURN ADDRESS 
ST RO ;SEE_IF ANY INPUT 
NE 4§ ?BR IF ANY INPUT 
2s: TYPE , BUFFO :ECHO BAD INPUT 
TYPE SQUES : TYPE <?> AND <CR>,<LF> 
BR ASKTMD :GO ASK AGAIN 
4S: CMP #’L,BUFFO :SEE IF (L) TYPED 
BNE BS :BR IF_NOT cL) 
IMP LSTTST :JUMP TO LIST TESTS 
6S: CMP #’C, BUFFO :SEE IF (C) TYPED 
BNE ag ;BR IF_NOT (C) 
IMP CHGTST ? 7 JMP TO CHANGE TESTS 
8S: CMP #’I,BUFFO :SEE IF (I) TYPED 
BNE 2s :BR IF T (I), TO ECHO BAD INPUT 
IMP INPUTP ?GO INPUT PARAMS AND RUN TESTS 
:LIST CURRENT TESTS AND ITERATION COUNTS 
{STTST: TYPE TLSTHD ;TYPE HEADING “TEST ITERATIONS” 
CLR : INITIALIZE TEST INDEX 
2s: ISR PC, PREPKB ?PREPARE FOR POSSIBLE KBD INPUT 
JSR PC’ TYPTST :T CURRENT TEST AND ITERATION NUMBER 
TYPE SCRLF ?TYPE_<CR> LD 
TST tNTCHR *SEE IF ANY INPUT 
BEQ :BR IF _NO INPUT 
CMPB 3, INTCHR :SEE IF (tC) TYPED 
BNE :BR IF NOT (1C) 
IMP DRVTST ty TO FOR DRIVES AGAIN 
4S: CMPB #032, INTCHR >SEE IF As 3) TYPE: 
BNE sR IF NOT (12) 
IMP ASKTMD : TO OR NEW TEST INPUT MODE 
6S: JSR PC, ECOBAD ; CHO T 
QS: ADD #2,R1 i INC NT TEST INDEX 
MOV RI Re i GE c 
ADD aTSTLST,Re :GET POSITION IN LIST 
CMP #OFLTST, Re ; SEE iF WITH LIST 
BNE 2 ; she. f° YET 
BIC #8176, aSTKS *DI KBD INTERRUPT 
IMP ASKTMD :GO ASK FOR NEW TEST INPUT MODE 
“CHANGE CURRENT TESTS AND ITERATION COUNTS 
SHGTST: TYPE ; BOK IF TESTS, SHOULD BE DEFAULTED 
JSR PC, ROCHRS *READ RE 
DRVTST ?(#C) RETURN ADDRESS 
ASKTHD *(#2) RET ADDRESS 
CHGTS >(4U) RROR RETURN ADDRESS 
TST RO ;SEE IF NULL INPUT 
BEQ NUL INE ?BR_IF TNEU 
CMP #’O, BUFFO *SEE IF (D) TYPED 
BEQ LODFLS ?BR IF DEFAULTS REQUESTED 
TYPE » BUFFO ?ECHO BAD INPUT 
TYPE : TYPE <?> AND <CR>,<LF> 
BR HGT *GO ASK AGAIN 
sLOAD DEFAULT ITERATION COUNTS INTO TEST LIST 
CLODFLS: MOV #DFLTST, ;LOAD DEFAULT LIST ADDRESS 
MOV #TSTLST; Re :LOAD TEST LIST ADDRESS 


SEQ 0101 


5 tah ay pat Fan tad 2 


Qee737 000% 


CZREND 8 10:05 
SE RIES BLEIEE cose 
EEL Blears bpiey, 002416 
5084 O1gerg : 016SS0 

1 1 1 010204 
ae pierre Oi Br 
1S606 104401 013334 
ena? 1S6le 004737 O34034 
1S61 144 
Bes Hee Hen 
sos3s 1 7 
BOE cm 
5038 t 101 30 
AG Hee Gee Max 
blest 
y 
6 S6 


fe 8 
He 

fe 8 

$107 Ol 

fife lem Bee 
erie 1 z Oe 

SIIB BlEets Recap 005 
$113 015714 e S264 
cil BHA Bleray BOSRéy 
5115 0157 1 

2118 018736 

$11 157. 077776 
eh 
5120 Bless Bos7ee 

eish 018744 001731 

Sie3 015746 010102 

51 15750 7 S630 
flee i 754 Sie S64e 
fe Hee iy Be 
B10 Bas ae ea 
Si3e 016006 104401 001314 
$133 016012 000671 


MACY11 30A(10S2) 
TO 


ooS264 


005263 


00S632 


10-JAN-78 12:02 PAGE 
- DESIRED TEST INPUT ROUTINE 
4S: MOV (RO)+, (Re)+ 
cn SFL TST, Re 
i . FLA 
BAe? ASKTHO 
IMP ODFPT 
NUL INP: CLR 


8s: 


PSBACE El 
TYPE PROMPT 
;READ AND CHECK inPur IF ANY 
ISR C, RDCHR 
DRVTST 
ASKTMD 
8s 
TST RO 
BNE 12S 
10S: ADD #2,R1 
HOD sO STSTLST,R 
CMP # Uyet Re 
BNE 
IMP ASKTMD 
12S: CMP #’! BUFFO 
BEQ 16$ 
CLR Re 
CMPB #”!,BUFFO-1(RO) ; 
BNE 14 
CLRB BUFFO-1(RO) 
DEC 
INC Re 
14S: CMP #S5,RO 
BLT 2 
MOV HBUFFO -(SP) 
JSR PC, OCTBIN 
Aoy = (SP+ 
CHP RO 195%, 
MOV RO, TSTLST(R1) 
TST Re. 
FEO CURRENT! 
-PROPAGATE CURRENT ITERATION NO. 
les: AOD aTSTCST, Re 
CMP OFL Tet ariB° Re 
cid ASKTMD 
17S: MOV TSTLST(R1), TsTLst+ 
ADD #2,R1 
B té$ 
20S: TYPE , BUFFO 
TYPE *SQUES 
R &$ 


. TYPE oun rest HP rors 


103 


AULT VALUE 
el abe ve 
twas FEU Iu SFoe 
‘AD 
ITERATIONS” 
TYP aT TEST NO. AND ITERATION NO. 


;T 
; TYPE ASTERISK AND SPACE 


rt ) RETURN 
ae} Bee eta ADDRESS 


amin 


roe bd al INPUT MODE 
ope F (%) ota 3 


4c eae EIT. 
T Aha IN N BUF IS (2) 


eee 
=o 
S603. 
é 


ne 
me 
me 4 
3 
29 
ex 


SBR 
mess 


m+ 


sa 


TION oe ot INTO TEST LIST 
ih shes 


8) 
T 
NEND OF TSTLST 


8 
<4 
~ii 


De 
444 


Sey 
nd 
tad 
= 
ono 


mm 
m+ 


TEST INPUT MODE 
PROPAGATE TO NEXT WORD 


© ae ws wswe wes 


288 


CZR6ND0 RK611/06 SS VERIF 2 


CZR6ND.P11 10-JAN-78 10:05 
siz 

5136 016014 10440; 010234 

ae: 

cages 

BAG lets apy Blas 
cv pisiae Bieden 

14 1 1 

144 1 1 
bie Gibtes Sbioe> 

14 1 1 1 oosS264 

5146 016062 104401 001314 

5149 Bt 7’ 

2120 ti 27 000124 
SiS, lEtrE BROS on. 
| $153 016104 Gee737 000117 

ela? Ottis ogi37 5 
| B1eE BIELES Boebs? BLBTRS 

S157 016126 001002 

5158 016130 000137 016770 

516 b1biae Bee? 37 000122 

elee 11 Baas ne 

fled Bicies Kueh o1o%7o 

Bibs tay 023737 005674 

SIG BIEICE PREIET oi osco 

BIG RICE BT concen 

2153 ptesi§ Oba4 1 010532 

aS Bipssd 104401 010501 

2toP pi esse p07 3 017224 

$177 

5178 

$179 

S180 

S181 

51a 

5185 

S186 

at tte 5 

218 B1eS34 pp8534 030576 


MACY11 5. oes 


00S264 
00S264 
ooS264 
o00S264 
005672 


005676 


O00S666 


10-JAN-78 12:02 PAGE 104 
DESIRED TEST INPUT ROUTINE 


;ASK_FOR_ DESIRED i“ gee INPUT a 


NPUTP: TYPE LAIN INPUT M 
A thacs 


t 
pened ARUP BREE SEERAT IONS 
eee} 


OR DESIRED INPUT MODE 


Pc, ROCHRS HIvee RESPONSE TO MODE QUESTION 
KMBE '¢3S) RETURN ADDRESS 


Ow 
AA 
= 


ASKMDE ?(¢U) OR ERROR RETURN ADDRESS 
Be tC«SG tBRe PT ay BUT” 
2$: ia , BUFFO ;ECHO BAD INPU 
TYPE ,SQUES j TYPE <?> AND <CR>, <LF> 
4S: CMP #’T, BUFFO >SEE TF CT) TYPED 
kid Feist : GMP TO tue ty YPE LIST ROUTINE 
6S: CNP #’0, BUFFO i SEE IF 9) TYPED 
JM Pus Rite, TO THE N LIST ROUTINE 
8S: CMP #’S, BUFFO *SEE IF (S) TYPED 
BNE 10 *BR IF_NOT (S) 
“an JME SETPRM fl Rd ost INDIV. PARAM. ROUTINE 
. SNE es 7 PMO (Bee 0 ECHO BAD INPUT 
CHE $0 S1 ie C) g pec TOR LIMITS 
fire Seow a NOT ALLOUED™ 
12S: CMP 2 S3 aes SECTOR LIMITS 


; > 
oe Te 


AMETER 
HOSEN TR TRACK LIMITS 


14S: CMP FT,LT 

a ee Rarenel 

BR ASKMDE. 60 A Bex" AGaiN FOR PARAMETERS 
20S: MP RUNTSt , $89 As RUN THE TESTS 


-SBTTL TO - TYPE (T) LIST ROUTI 

;#THIS ROUTINE T YPES THE EAH CI PARAMETER. LIST, ON ON THE 
;#CONSOLE, LINE BY LINE. 

FH AMIN a a ge 
TYPING (#0) Bauces Vinteofart fe E TURN 0 BRVIST. 


;*#AND (¢Z) CAUSES RETURN T 
TYPLST: " I ” 
BR bp ARE FER’ POSSIBLE KBD INPUT 


55a 


Be 
PC, PREPKB 


SEQ 0103 


—_ 


CZR&END0 


RK6117 


CZR6ND.P11 


WWI 
ee 


Rac ueridrricda 


Cd ed eed eed ed 
WONOU CWO 


POPUPOFOPUFOFUrOROrOrOrD 


ron 
DOV LOO 
DOOOOOOOOOOOOOOO9000N OOOO OOOOOOOO000000000000 


ae FF be 


POFUFUFUFOPOPOPUROFORD 


PALO 


o 
ui 
a 
<£ 


FRR IeRRREA OSS 


preseceererceccrss 
JETHRE EQUI =S5Sy 


Bn 


016504 


1 


06 S 
J 


0- 


4 016020 
004 030616 
737 030576 
th 040515 
sot ode 
1 0002 
0101 

7 OOS&60 

' 00S7 
03e737 100000 


MACY11 SpA (108 


oossee 


oossee 


006010 


005700 
162SS4 


o0sSee 


oossee 


162444 


1S: 


4S: 


6S: 
8S: 


10S: 


; TYPE OU 


les 
14S: 


16S: 


18S: 
20S: 


10-JAN-78 12:02 PAGE 105 
TYPE (T) LIST ROUTINE 


PC TYPPRM 
SCRLF 


Soo, Into 
ORVTST 

#032, INTCHR 

PC, 

PC’ PR 

a" fA, BRMNEMCRI ) 
#2,R1 


R1i-Re 
SPRNCST, R2 
#PROFLT, Re 


eB1T15, PT 
#BIT6,a$TKS 


C 
ASK 
USER-DEFINED PATTERN 18 
‘hed FTN 


TNTCHR 


#083, INTCHR 


bRYTST 
0 hl maleate 
18 


$2) TR SSTKS 


- OPEN (0) LIST R 


TYE CURRENT PARAMETER AND VALUE 
TYPE <CR>, <LF> 
F ANY INPUT AT KBD 


tc) 
FOR DRIVE(S) AGAIN 


see “USER-DEFINED PATTERN 1S :” 
N 18 ZE WORD INDEX 


) 
OR DRIVE(S) AGAIN 
PED 


c 
rf 
TY 
(42) 
F 


we 


’ 

; 

; JUMP T NEW MODE 

seuD ey Messin KBD INPUT 
ae 


ON 
SORE TO Bek FOR NEW MODE 


Be tag! foe RD ti SeaeavER’ tooth h oi 


Tet 


OPNLST: 


NPUT Se 
seoavT T, AND (t 


Ter NG eta) CAUSE 


TER FOR aLTERATION 


) CAUSES causes, TO TO RSKMBE. — 


SEQ 0104 


ERO eT 8 Fh 


RIF 2 
10:05 


Mis 


a 


000104 
5 aorst 
16546 
Sess Ol 12700 005706 
cet Site tiers 
sees Bites Beieyg sre 
Bes Sie Bigg cous 
yt] igen Bae’ Tete 
Bere Bleed Belay cae 
2535 16614 1 
cork lees om gre 
eSoa Bi ibadol 013334 
75 Ol 7. 034034 
By tes fee 
Be fee fee 
16644 
166 1 
Ae Bt oo 
S284 Oibees 20 
EF 16668 Ooe43 000010 
16674 O1 o0s2e64 
88 ieoen eee 054500 
ne a 
e538 01671e 013737 054632 
ca SR Ba =m 
sae 016726 004737 034514 
Seas Biers ier, coos 
5300 016740 O62e702 OO0S&60 
5301 016744 O22702 005706 





MACY LI 


006010 


00S472 


D CONVERT TO BINARY 


JSR PC, OCTBIN CHECK DIGIT 
ERROR pi URN ADDRESS FOR OCTBIN 


(1052) 10-JAN-78 12:02 PAGE 106 
O - OPEN (0) LIST ROUTI 
TYPE OF QUES ;ASK IF ALL DEFAULT VALUES DESIRED 
Jsk PC, ROCHRS > READ RE TO DEFAULT QUESTION 
RC KMBE (35) RET 
OPNLST - 3(4U) ing fa FaRN ADDRESS 
BEQ NOTOFT gotta tyro NOT REQUESTED 
CMP #’D © : IF (D) Y em 
ee BE See tee 
sLOAD ALL Fouls e INTO PARSE 
LOOFPT: LT,RO 3L T LIST ADDRESS 
Re it Gap BRETER L bist ADDRESS 
4S: nov CRO}, stRES+ 7L Bab A BEF 
CMP #PROFLT, R2 ; SEE IF Bone 
BNE san ;BR I rb VALUES TO LOAD YET 
BNE Bae tt NOF BEFALIL POF ODE 
Hoy #1,SEOPCT ;SET PASS 9 NT =. 
6S: IMP BOK MBE : OME to FOR NEW MODE 
NOTDFT: CLR Ri * INITIALIZE INDEX 
- TYPE CURRENT TER AND VALUE 
8s: J PC ; TYPE PARAMETER AND VALUE 
EE (gence iT Risk 
’ PROMP T As ERISK AND SPACE 
;READ AND CHECK INPUT, IF ANY 
ISR Pc, RDOCHRS ;READ OCTAL DIGITS TYPED 
DRVTST 5 ¢#C) T SS FOR RDCHRS 
ASKMDE (42) "eee 5S FOR ROCHRS 
Bs. = 5 <4) RROR ADDR. FOR ROCHRS 
BNE 10S Be ie ANY ATMEL Y 
CMP 8°MA,PRMNEM(RI) ; iF (MA) JUST DEFAULTED 
BNE 12s : NOT (MA) 
R1 ? INCREMENT INDEX 
BR 124 ;BR TO MOVE ON TO NEXT PARAMETER 
10S: CMP #10,R0 BR F T b, TYPED 
BLT *BR I THEN 
MOV SBUFFO, -(SP) ?PUT BUF! 8 On STACK FOR OCTBIN 
hoe (SP)+,LOWOCT ; TL 8 Y B 
MOV SHIOCT, HIGOCT GET HOH INARY BT i 
;CHECK PARAMETER VALUE’ AND PUT INTO LIST 
JSR PC, CHKPRM ERR VALIDITY OF PARAM VALUE 
43 FOR CHKPRM 


14 RETURN. ADDR. 
{OBEN USER-DEFINED PATTERN 15 FOR RODIFICATION, IF NECESSARY 
; MOVE on 79 O NEXT ag 


; INCREMENT PARAMETER INDEX 
MOV Rl ;GET COPY EX 
ADD BPRALST T,Re ;COMPUTE POSITION IN LIST 
CMP #PROFLT; Re ;SEE IF DONE WITH LIST 


SEQ 0105 | 
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per tree five 

Bie, BI BEY coon 

53293 ' 2 Tene 2 

Bel Sires ieuel Bbrsis 

pea Siete Base 9 
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Be ies feral oe" 

SoS Boot! 

534 a 627 OOS660 

Bs Bis fare Ore 

e345 017066 
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Bet Btls lee 
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per tiie fee 
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Ph aitey moe e. 
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006010 


c0S264 
005264 


00S264 


005264 


s: TP 
14S: 1 YEE 


» F, 


;6R IF 
JUMP TO ASK FOR NEW MODE 


NOT DONE YET 


ite BAD INPUT 
YPE <7?) AN <CR>, <LF> 
BR TO ASK AGAIN 


jaTHIS ROUTINE I Linen SenniNg OF By TNOIVIDUAL 
BER EE Rede ae Oy Ua 


TYPED BRO. THE 


Spee RETURN TO DRVTST, 


SETPRM: 
TYPE PRMPSP 
;READ AND CHECK INPUT, IF ANY 
C,ROCHRS 
DRVTST 
ASKMDE 
SE TPRN 
MP RO, #4 
t  BouES 
ss: fie | fell 
Sr Gg: 
;SEE IF THIS MNEMONIC RESIDES IN 
Qs: CMP BUFFO, PRMNEM(RI) ” 
BEQ 19 
ADD #PRMLST, Re 
CMP #PRDOFLT; Re 
a3 
-CHECK FOR VALID LINE FORMAT 
los: MOV 03, NS 
CMPB =, BUFFO(R2) 
Bee #040, BUFFO(R2) 
BNE 4§ 
INC R2 
CMPB #’=, BUFFO(R2) 
BNE 4S 
12S: INC Re 
CMP Re, RO 
BGE 
CMPB #040, BUFFO(R2) 


CAUSES RETURN TO 


peas eionriats: 9 ik Keesha oe RE oe 


; TYPE “> “ PROMPTER 
READ 


+ 
z 


OR 


Rms 
——e 


I 


TI 


eu LI 
AOORES FOR ROctRS 
FOR ROCHR 


‘a ho pe ae 


OUND IN TABLE 


oPY x 
ALL ENTRIES HAVE BEEN CHECKED 


um CHECK _YET 
INPUT 


IT ice Ere PER. POINTER 


eit Is “s* 


F 
E 
MENT BUFFER POINTER 


MORE CHARS LEFT IN BUFFER 
ECHO INVALID INPUT 
NEXT CHARACTER IS SPACE 


Ref asec nen oES 
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gizise ppugG3 me AS :PRCAE OT BuSPERE porn 
S360 017146 O202e00 CMP Re, RO HARS veer aN BUFFER 
peak at UE des IB TEctO"esthttn coon cone coun 


Teen vase te 


; CHECK “8g LEGAL 


58 
ee) isles 

pes givied Siar 0 
ee 


re IG GS ces ERD SLE Ge, ene 
17174 Bi 2a7 ‘ 4g ck . ee cr ofnney RN AODR. F OR OCTBIN 

2357 813488 13833 peae58 00s472 MoV SHI0Ct I atgoer : HPGH NARY Affe 

B75 Bi 7et8 BY76is ; ;OPEN U sean PATTERN 15 nl Ror RETURN ROO. “on coKER 

cre BIEL BBE ONS Te EENBRRPIE' ©" perum 10 ask FOR ANOTHER PaRRRETER 

5378 

5379 


Sie a i ue sett ae ee "I THIS 


386 
7  #DRIVE ut T OFMA F oyte. AND A JUMP 
fo 
5389 *#THE END OF PASS ROU INE RETURNS TO “NEWORV” TO SELECT 
8331 HERG H SUCCESSIVE OR RIVE FoR. TESTING, UNTIL THE ENTIRE PASS 
5393 017224 RUNTST: 
ogc 17 4 1003 4g" THE ROOTED Wenee = F yet R OF PASSES 
eae pirss4 AB4 793 pu i003 ISR ee” ROCHRS {READ RESPONSE 
17, 144 DRVT T ant $8 
1 1gge0 SK ($2) RETURN 
3 i 9 1 45 i <4) 9 ERROR RE RETURN ADDRESS 
siol iveas olsb ae SO. AaK AGAIN, 
4 1 oooo0s CMP #5, RO *SEE HOW MANY CHARS TYPED 
5403 017252 o02005 BGE 8S jBR IF S OR LESS 
S4 17; 1 1 pose64 6S: TYP FO *ECHO BAD INPUT 
ese Bisees oe a po c0 ASK agaIN 
4 17 4 gs: MOV sRUEE -(SP) °GET BUF ON STACK FOR OCTBIN 
Eioe Si7ere oars? SNS60 ds eetin” age pis eases See 
B46 617306 Ote 37 024006 Roy sagiek SEOPCT Heer T DES SIA es Bn AOORE Basses (1- BIN 
5412 THIS IS THE ACTUAL START OF A rin WITH Oy Ba 
5413 017306 005037 001326 dtpAss: CLR $PASS ;INIT. THE PoaeS> NUMBER 
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O - RUN (R) TESTS ROUTINE 
MOVB #1,T TING ;SET TRUNNING TESTS” F 
NEWPAS: MOV teed , DRIVE jINITIALL DRIVE NO. -1 
CLR SDEVCT : INIT OEVICE COUNT TO 0 
;CHECK DRIVE LIST FOR MORE DRIVES TO Te T on THIS Pass 
NEWDRV: (i0V #PRO,aePs ;RE-ES ORITY O 
CCRS esteek, SP i RFE AR : 20 FOR CURRENT DRIVE 
CLR INTC >CLEAR pA Neot Bur FER WORD 
INC IVE ? INCREMENT DRI NUMBER 
SE SODRIVE IRE bond ec tne efi 
JI ESNPAS aa F WITH ie PASS 
2s: Vv DRIVE RO :GET i NUMBER 
TSTB DRVLST (RO) i SEE I THI Ive 1s MARKED IN LIST 
Q NEWORV ‘BR IF NOT D, TO CHECK ANOTHER 
CLRB TSTNM :INIT TEST NUMBER’ TO O 
LR TIMES j INIT LTERATION COUNT 
TYPED: TSTB DTYLST(RO) :SEE IF RKO7 
BNE g :BR IF YES 
CL YPFMT tELSE LOAD ALL RKO& PARAM 
MOV ae4, CMG 
MOV . IM+2 
HOV Hoe 
ny Besa: bane 
MOV * PRMLIM+6 
MOV #400, HOLD1 
MOV HOLD3 
MOV % , HOLD4 
BR 3 
1S: BISB #B.CDT,TYPFMT ;LOAD RKO7 PARAMETERS 
MOV #1450, CMe 
MOV #1455; PRMLIM+2 
MOV #1456,LC 
MOV #14 “bate 
MOV #1456, LT+2 
MOV #1456, PRMLIM 
roy HOD aL 
MOV $2088 HOLDY 
3S: 
; TSTB HDAL I ;ARE WE DOING JUST HEAD-ALIGNMENT? 
: BEQ 13$ >YES, SKIP NEXT 
: TSTB HDALI+1 ?WHICH RETURN 
; BMI 29S :SECOND RETURN 
: IMP #INTGO :GO TO AL GNHENT CODE 
'29$:  JMP #INTGON :GO_ TO AU alr NT CODE 
Be THE EADER OM SrETOR 0, TRACK O. fe D- AND GET THE DRIVE FORMAT 
; JSR PC,INITSS '  ; INIT. YER PARAMS AND S.S. 
MOVB #ROHEAD.P.CMND(RS) ;SET READ HEADER COMMAND 
JSR PC, DRVCAL ;D0’READ HEADER 
MOV HOLD3, (Re) : ISSUE RD HOR WITH FMT BIT = O 
4S: BIT #BIT7, (Re) :CHECK FOR C. READY IN CS1 


SEQ 0109 


FOS 
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78 ile: 
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OFFSET-TO-FAILURE MEASUREMENTS 


ATEST Toe" OFESET“TO-EAICURE MEASUREMENTS: 00° 


TES 
i eIN THIS T aA REPEAT Boat ean TERN Ove “ee i gt WRITT eANTO ALL 
at cis Lh N WITH 


THE T 
j* M67eagCOCT) (T Y 
j #THEN S CRED WITH_INCREASI 





: OFFSETS, UN ce * Ta TYPE od Roce OR_T ULL RANGE 
$0 oak ave, OE Hie F Pt Te” sare SECTOR bn _— 
} #MAXIMUM Neca! Sere Ne me ‘3 BONE ALL sit SECTORS 
EO ERS FC AND. Peat e BTC Fon TRACK 1. BND FINALLY. FOR 
eokhek Bor re Bat seed nett. Oe RACK 1 AND IN ORDER OF 


{ EINCREASING 
5 OFFSET-TO-FAILURE MEASUREMENTS : 


;# TRACK CYLN SECT +OFST -OFS 

;% (UIN) (UIN) 
:% x XXX XX  XXXX xX 
je X XXX XX XXX XXXX 
3% Xx XXX XX  XXXX XXXX 
3 ETC. 


5% 
;#NOTE: IN AN ADRS 200 DEFAULT RUN, FS DEFAULTS TO 0, AND LS DEFAULTS 


;#TO 10(DEC), FOR THIS TEST 
ae ee ee ee 


SCOPE 
ney Ba: stesih bapeT uP FOR LOGE On IN. A MAIL BOX 


JSR PC. CHKITR Eto TTER. 0.57 6 RE OR THIS TEST 


MP 
;RETURN HERE FROM CHKITR IF TesT 
JSR NITI DRIVER PARAMS AND SUB-SYS 


PC, INITSS 
JSR PC PKB POSSIBLE KBO INPUT 


p ENETIAL SSS PARAMETERS, WRITE tHe gra OOH ng 


CLR FS e FS = 

MOV #10.,LS ET LS = Gocpec) 
3S: MOV FC,P:CYLN(RS) ;SET CYL = FC 

MOVB FS’P.SECT(RS)  ;SET SECTOR = onS 

CLRB P. TRCK(RS) :SET TRACK = 

MOV LC, CYL 

CMP LSTCYL,LC ;SEE_ IF LC =632/ 1456 

BNE 4§ :BR IF NOT 63271456 

DEC CYLNOR *MAKE IT 631 (PRESERVE BSF) 
4S: MOV #72307 ,R3 *GET DATA PATTERN 

JSR PC, WRTSEC :D0 WRITE AND WRITE CHECK 

MOV #167230,R3 :DATA FOR AJACENT 

DEC P.CYLN(RS) :NEXT LOWER CYL 

BMI 6$ ;BR IF CYL NEGATIVE 

ISR PC, WRTSEC :DO WRITE AND WRITE CHECK 
6S: ADD #2’P.CYLN(RS) | :NEXT HIGHER CYL 

CMP LStCYL,P.CYLNC(RS) ;SEE IF CYL = 632/1456 


ARE NOT TESTED. 


SEQ 0110 
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CZR6ND.P11 10-JAN-78 10:05 Tl OFFSET-TO-FAILURE MEASUREMENTS 
4 B ;BR_IF_NOT 
226d R5es38 093900 oo00002 oo000s BNeB 8s P.TRCK(RS) SEE IF BSF 
5566 D20e4C 14 BEQ o$ :BR IF YES, TO PROTECT IT 
Beez e0e4 7 4 8S: SR PC, WRTSEC :D0 WRITE AND WRITE CHECK 
5 1OSse5 0000 mu Vee * 8b: Free Re) PORCR TRACE 
5570 278 900003 oo00005 CMPB 83,P. TREK (RS) it = 3 YET ? 
71 1 BNE 4 ton TE NOT YET 
B57 000004 005510 cnPe P.SECT(RS),LS ;SEE PF yee = LS 
2254 1 510 oo0004 MOVB LS.P. SECT (RS) ; T Cc OR = Ls 
5575 1 128: CLRB P. tTRCKCRS) =0 


i an apa ETbe"<tBs acorn 


®. CONTINUE WRITING 


ce 
2258 begsie Beesa? oo00002 oOsso4 14S: Rp eunns), cnwoiP Rel? CONTINUE iia 
5578 1407 BEQ 16 -BR IF YE 

hs nek’ 

Bepaue 

ost 

020370 


5582 INITIALIZE PARAMETERS FOR OFFset ti 
pegs g3e7. oooo02 oos702 iés: BIT aB1T1, cS OATS. ARE INHIBITED 
5585 10440 240 T 
556s ifaees Qoeses gonons es: Ave ETB Texas) gt ee eed SF rc 
see 113765 005506 o00004 anes HONS, eur eeb Poe" (RS) a ill ; FS 
283 020376 012700 065660 MOV #RWBUF , RO ;SET BUFFER ADORE od ceieen 
ee Bebiee Bleret BPESG9 res: AY EB cross | 2 ae 
; 
2eeg 815535 133555 ppeeds ‘perronntSvrsers*ataneorse cal | Nittact ieee FAILING -) OFFSET 
B 


17 000001 22S: MOV P.CMND(RS) ;SET SEEK 

He ee Ree av aee 

1 MOVB .OFST(RS) = iSET NT OFFSET 
iS oo00001 #0OF P — SD T OFFSET 1 COMMAND 
42 PC 
31 000001 MOVB = SWRTC HK, WRiTE.¢ 

Ye 003046 MOV SuRCKHO A BONE sae STK OPER. ADDRESS 

4 E GATT HECK ERROR FLAG 

42 RFORM A WRT WRITE CHECK 


O1g737 Bas 3046 nov 3 ir) Ss ER ADDRESS 
Lise 799 001 MOVB Hata Bb nile =i cee CLEAR CMND 


peecnnennes 


5611 004737 oO4254 JSR PC. ORV AR T 

pole 11276! 115 oo00001 MOVB Bc ADRVCAL cnn (RES eer OFF eT cin 

561 0000 CLRB P.OFST(RS) ; 

Bold 254, PC. DRVCAL : t 

615 105737 314 TSTB WCEFLG :SEE IF a A CRITE HECK ERROR OCCURRED 
5616 1020 BNE 265 jBR I IF AN ERROR OCCURRED 

5617 000 MOV RO,R1 ;GET A COPY CURRENT OFFSET 

5618 S2 INC : INCREMENT 

5619 O20562 062704 000031 ADD #25. ,R4 :INCR OFFSET VALUE BY 25(DEC) UIN 
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5620 3701 77700 BIC #177700,R1 ;MASK_FOR Ngo € BITS 
sess i317 60 che #60,R1 BEE IF ne MAX OF SET APPLIED IN THIS DIRECTION 
000200 IT #81T7,RO —E IF NEG OFFSETS 
see 1618 BAe 583 ‘Be é ee "Ss, INT tft SECTOR RESULT 
000200 24S: MOV #200, RO tINIT F OFFerTS 
5626 CLR RY j INIT (=) OFF oF VALUE TO 0 
562 1 BR ; G SETS 
pbe8 540 000200 26S: BIT #81T7,RO :SEE IF NE vor SETS DONE YET 
14G3 BEQ 28s :BR YET 
5630 oossso MOV RY. NGOFST : THIS FAILING (-) OFFSET VALUE 
5631 03 BR 326 :BR TO PRINT CHARENT SECTOR RESULT 
pose 010437 o0sS46 28s: MOV R4. PLOFST j SAVE THIS FAILING (+) OFFSET VALUE 
56 900763 BR ;BR_TO HB. NEGATIVE OFFSETS 
5634 0327 oo0002 005702 32s: BIT #B1T1,CS SEE IF REPORTS INHIBITED 
5635 1051 BNE {BR IF INHIBITED 
5636 ; TYPE OFFSET RESULTS FOR THIS Set TOR 
563 16501 ooo00s MOVB P. TROK (RS), Rl ;GET TRACK NO. 
5638 10146 MOV Ri, -(SP) :PUT IT ON STACK 
5639 104403 TYPOS : TYPE IT 
5640 003 BYTE 3 :3 DIGITS 
564 000 BYTE 0 } SUPPRESS 
peY 04401 013312 TYPE Ss 
4 16546 o00002 MOV P.CYLN(RS),-(SP) ;PUT CYL ON STACK 
5644 104403 TYPOS ;tyPe IT 
S645 004 .BYTE 4 :4 DIGITS 
Bb46 000 BYTE O : SUPPRESS 
564 104401 013313 TY SPACE2 
56 318501 MOV! P.SECT(RS),R1 ;GET SECTOR 
S64 146 MOV Ri, -(SP) :PUT I QN STACK 
56 1 TYPON : TYPE SECT 
5651 O4401 013314 TYPE SPACE 1 
pobe : 7 005546 Ist PLOFST BRE FF ie RE as A FAILING (+) OFFSET 
Boos O4401 011231 TYPE NOFALS i TYPE © 
See 13 OOSS46 36S: MOV PLOFST, -(SP) sgONT IME cet VALUE ON STACK 
1044 TYPDS *TYPE IT IN DECIMAL 
5658 1044 013314 38S: TYPE SPACE1 
565 7 005550 TST NGOFST ;SEE Fie THERE WAS A FAILING (-) OFFSET 
Sa 1 BPL 40$ ;BR I RE WAS 
5661 104401 011231 TYPE NOFALS HONE” 
Boe 000403 BR 2s + CONTINUE 
013746 oossso 40S: MOV NGOFST, -(SP) spur (- ) OFFSET VALUE ON STACK 
5664 104405 TYPDS TYPE it IN DECI MAL 
5665 104401 001315 42S: TYPE SCRLF TYPE <CR), 
BEGG -SET UP TO TEST NEXT SECTOR 
566 $37 000004 oo0SS10 436: CMPB P.SECT(RS),LS on IF SECTOR = LS 
BbbE 1 18 BEQ 44 :BR_IF YES 
566 1 113765 005510 oo0004 MOVB LS,P.SECT(RS) SET SECTOR = LS 
5670 1 BR 2 TEST THIS SECTOR 
B671 i 537 000002 oO0SSO4 44S: CNP B. YLNCRS), CYLNDR ; jSEE Heer = LC 
5673 O2l02ee 013765 oosso4Y oD0002 MOV CYLNOR,P p CYLNcRSS -SET CYL = LC 
5674 021030 113765 005506 OO0004 46S: MOVB StcT( sets SECTOR = FS 
5675S 021036 000137 O20416 IMP oaS TEST THIS SECTOR 
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ooooos 
oooode 
oooc01 
OOSSO& 


005510 
ooSso6 
005510 


000020 


000034 


001324 


48S: INCB P. TRCK(RS) 


; INCREMENT TRACK 


CMPB #3,P.TRCK(RS) jSEE eee TRACK = 3 
MOV FC,P.CYLN(RS) :26 TE GYLe = 


BEQ 
BR 

Sos: MOVB #PECAL,P. cHNDCRSS 
JSR PC, DRVCAL 
MOV Se,FS 
MOV 3.LS 
TSTB ORMAT 
BEQ Sus 
MOV So,FS 
MOV 51,L5 

Sug: 
IMP TsT2 

*THIS IS THE ABN 

x =DATA TYPE™ een Ris ep EctE 

WRCKHD: BIT 
BNE ag° 

; CHECK FOR OTHER ual 
BNE 
IMP ERRHDL 

4S: INCB WCEFLG 
IMP RE TNML 


TYPE” ERROR 
BHVRC!DTE! OPI! 'DCK,P.E RC RS) 


A 
CALIBRATE 
;RESTORE FS,LS FOR 22 SECTORS 
BR IF IF yee SECTORS 
RESTORE fs, LS FOR 20 SECTORS 
; JUMP TO NEXT TEST 


URN FROM THE an USED WHEN A 


(AND V 
S2(RS) SEE pF WRITE CHECK ERROR OCCURRED 


WCE 


‘oe 108 Tee Ta ER RROR OCCURRED 
?SET WRITE CREE ERROR FLAG 
:TAKE NORMAL RETURN 


epegesucnsansessseernn a) Gein iS 


iT Tis TEST, NENORY WORD ADCRESST 


#IS T 


; #BEY' 


7*(STAR I 

} #AMOUNT 

; #WITHIN pak 
;*A Ss T F 






¢¥AND BAD DATA, FOR UP’ TO 
iS IF ATOR” AANAGENENT seve 
i SRERAL his Y 


#2,STESTN 


TA T TA WRITTEN. 
Het 8s ae ine Fang ire 


BICITy DURING RKO& NPR’S, 


tt Mart 


eat Ay ae Lace 209 HRSA FF ETRE ok “ORS MU 
7a 


{DEPENDING UPON _TH THE 


welt let Ge (MAX) ONTO T T Biek 

. NECE Y, TO AVOID PACK OVERFL 
MN OR ). THEN ZERO HE NTIRE OcK 

THE DISK, AT SAME ICAL 

YPE THE FA LING 


Ne eR oe HERE_IS ADDITIONAL MEMORY TO 
Sc ING TEST, FOR EACH OF THE 


CKS. 
TO gpa a ee ppenccemeienmin ger ota I: 


5: SET TEST NUMBER IN APT MAIL BOX 
:SET UP FOR LOOP ON ERROR 
; SEE TF ITER. NO.-= = 0 FOR THIS TEST 


JMP ; JUMP T 
; RETURN a FROM CHKITR IF TEST’ SHOULD BE RUN 


PC, INITSS 


; INITIALIZE DRIVER PARAMS AND SUB-SYS 


SEG 0113 


| genenge eee SS VERIF 2 
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s7 021226 004737 030576 
| §734 12 732 031770 

5735 051836 127. 5660 
Pu 1 7 S44 
7 1250 7 O42 
5738 1254 112737 o00001 
5739 Gelebe 412732 
0 0212 12737 177777 
S742 O21 737 O40644 
574 get 237 035270 
5744 1 7 1 
eeue 06131 BE <4 000012 
a i3ié 701 
cris Selsee Rubs 
5750 ps} 10065 000012 
5751 Get 13765 005600 
5752 1 13701 Oo0S6 
5753 02134 2701 177774 
obed Os135e b80299 
2736 1 100010 
5758 021360 013737 OO0S600 
5759 1366 013737 S602 
2760 951358 pha335 eats 
57 14 7. 4 
ee Os 40g G930 fe os 
5764 14le 0047 2 
5765 14 0047 037710 
sree Bsluse bare? Bisies 
5768 14 
5769 14 7 037722 
5770 Oel¥4e 112765 o001e21 
5771 O214S50 004737 O42164 
5772 De1e4 0047 0054 
2723 1460 104411 
5775 021462 004737 1052 
5776 Gel 900705 - 
5777 1598 0047 032050 
5778 021474 105737 3143 
Sree B10 BRE? avesie 
5781 021506 





MACY11 30A(10S2) 
Te 


ooss4e 


003133 
003134 
005536 


000010 


oosé04 
005606 
001110 
000001 


000001 


10-JAN-78 12:02 


ISR PC, PREPKB 
;SAVE XXDP LOADER, IF PRESENT 

JSR Pt, FND 

MOV SRUBUF , XDPSAV 

CLR XDPSAVS2 


MO 
MOVB #1 VD 


PAGE 115 
NPR/MEMORY WORD ADDRESSING TEST 


;PREPARE FOR POSSIBLE KBD INPUT 


; COMPUTE STARTING ADR OF XXDP 
;SET XXDP SAVE AREA ADR 


;GO_SAVE XXDP LOADER 
;SET INDICATORS 


MOV a-1, PATRN ;SET FLAG FOR SVPRMS 
; INIT PARAMETERS, BEGIN TESTING 
ISR Pc, SETUPM ; INIT PARAMS 
4S: JSR PC, MXWRDC :COMPUTE MAX WORD COUNT FOR THIS MA 
TST RI :SEE IF ALL MEMORY TESTED YET 
BMI SOs :BR_IF alt DONE 
CLR P.WCCRS) :INIT WORD COUNT TO 65,536(DEC) 
TST Ri :SEE IF WRD CNT SHOULD’BE 65,536 
NE 6$ :BR IF YES 
NEG RO 
MOV RO,P.WC(RS) ;SET COUNT 
6S: MOV MA;P.BALO(RS)  ;SET BA BITS 0-15 
MOV MA+2.R1 :GET MA BITS 16-21 
BIC #177774,R1 ?MASK FOR LO 2 BITS 
ISB R1,P.BAHI(RS)  ;SET BA BITS 16, 17 
ST $ktil ;SEE_IF MEM MGT PRESENT 
BPL 14S :BR IF NOT 
;SET UP MEM MGT 
OV MA, PMA ;SET BUFFER ADDRESS 
MOV Ma+2, PMA+2 
JSR PC, PREPAR ;PREPARE MEM MGT REG’S AND UNIBUS MAP 
:PERFORM THE TESTS 
14s: MOV #.,$L ;SET NEW ON ERROR ADRS 
JSR PC’ SETTUP :SET FOR L ON ERROR 
JSR PC, SVPRMS : PARAMS THIS XFER 
JSR PC’ LOMEM1 =o THIS MEM BLK WITH INCREMENTING DATA 
MOVB BHRDATA,E . CHND(RS) -SET WRITE DATA COMMAND 
JSR PC, R sMRY THE 
SR Be. LD EO REN BLR-WITH ALL ZEROS 
MOVB RAbATAe CHND (RED SET READ COMMAND 
JSR PC, TRNSFER ; READ THE DATA FROM DISK 
JSR *CKMEM1 ?PERFORM SOFTWARE COMPARE OF DATA 
SCOPER ?CHECK FOR INTERNAL LOOP ON ERROR 
;GET NEW MA FOR NEXT TRANSFER 
JSR PC, INCRMA ;COMPUTE_NEXT MA 
BR :GO SEE IF MORE MEMORY TO TEST 
SOS: ISR PC, GETXOP *RESTORE XXDP LOADE 
TSTB UBMPRS *SEE IF UNIBUS MAP PRESENT 
BEQ 54S ‘BR IF NOT 
CLR aaSR3 ‘DISABLE UNIBUS MAP 


Sus: 


’ 


55 9-36 ESE AE ESE IE HE AE SE EE eH 2 A HS A HH a HH HE HE 
;*TEST 3 NPR/MEMORY BLOCK ADDRESSING TEST 
;*#IN THIS TEST, MEMORY BLOCK ADDRESSING CAPABILITY DURING RKO6 


SEQ 0114 


egeree, ee SS VERIF 2 
C2R ll 


6&ND.P 10-JAN-78 10:05 
pe 
$730 
$791 
| $792 
_ §793 
_ §794 
| $795 
| $2796 
5797 
5798 
eg 
$801 
| 28 Os18i0 012737 
S804 psiess 004737 033672 
$805 1See 004737 033740 
2B08 Oe21Se6 000137 Oee046 
cee BIE BRT SBERIE 
| 1 1 ue 7 7 
sis ies Dace fete 
Be Be Be 
| 
of SIGs ues Be 
2B Beie1 7 ByOed4 
2Bss Osie16 2734 0001 
ses Bite Bog Ser 
5824 1 
So ea om 
1 
nS AB BES ooooss 
ce ieee Giver Hees 
583e Oel e701 177774 
$833 1 6 
ao ik fen SP 
fe Bie fee bee 
ct Bie Bio Oe 
2e43 021726 004737 oO420S52 


poe 


MACY11 — 


001324 


ooss4e 


003133 


005536 


000010 


604 
OS606 


jas ie 
MOV 83 TN T TE R_IN APT MAIL BOX 
JSR pe; SerTup biPET yp Por LOOP on ERROR 
JSR > SEE VF ITER. NO. = 5 FOR THIS TEST 
IMP Fg gk > JUMP TO ahexT TEST 

;RETURN HERE FROM ome, IF TEST’SHOULD BE BE RUN om alae 

PC; Pep i BRE PARE 25,08 BaMeiaLe ik PNPUT 

; SAVE XxDP_LOADER IF PRE omnes » 
nov a XDP SAV con Ube SAVE Neen ORBDRESS 
ISR PC, SAVXDP ;GO_ SAVE XXDP_LOADER 
move #1,x AQ :SET INDICATORS 
MOV #1 
MOV a-1, PATRN ;SET FLAG FOR SVPRMS 

; INIT PARAMETERS WRITE AND READ’ BACK ALL HORY BLOCKS 

CLR SELECT ;INIT COMP FLAG 

2s: JSR PC, SETUPM SINIT PARAMS 
MOV #1,R4 ‘INIT DATA 

4S: ISR PC’ MXWRDC :COMPUTE MAX CNT FOR THIS MA 
TST Ri :SEE IF ALL MEMORY TESTED YET 
BMI 308 BR TF DONE WRITING AND READING 
CLR P.WC(RS) > INI NT To 65, 536( DEC) 
TST Ri > SEE IF WRO CNT SHOULD BE 65536 
BNE BS :BR IF YES 
NEG 
MOV RO,P.WCCRS) ;SET WORD COUNT 

6S: MOV MA’ P: BALOCRS) i SET BA BITS 0-15 
MOV Mat+2.R1 ;GET MA BITS 16-21 
Bike erbites, | Ser*onet® feedr® 
TST Sktii See ty MEM Ma?’ PRESENT 
BPL 14S :BR IF NO 

;SET UP MEMORY MANAGEMENT 
OV ma. PMa ;SET BUFFER ADDRESS 
JSR PC PREPAR ;PREPARE MEM MGT REG’S AND UNIBUS MAP 

14S: TST SELEC *SEE IF COMPARES SHOULD BE DONE YET 
BNE 20$ YES 

-WRITE AND READ THIS Men BLK ON &kOs 

les: JSR PC, SVPRMS ;SAVE PARAMS FOR THIS XFER 


10-JAN-78 12:02 PAGE 116 
NPR/MEMORY BLOCK ADDRESSING TEST 


ceo Jee te "STARTING. 


ING AT THE FIRST ADRS OF THE NEXT 1 
Bee ieee te tan Le Roch tnt Sa, Shes 
xEAGH BLOCK. mite H Tb Pac 
ee OF THE BAD 
is CTOR 


in eae thee. 


nore 
as "6 Pata Py 
pis | Fi tus Oe tae 5? A 4g FOR T FIRST 10(DEC) FAILING 
[SHOnHASEaEEOENSSUOSESOESONSENOEOANENOAHOENNANNEEHOHAREOEEENS 


OADER_IS SAVED, IF PRESENT o ADRS RWBUF . 


SEQ 0115 


CZR6NDO RK611/06 SS VERIF 2 
CZR6ND.P 


ND.P1i1 10-JAN-78 10:05 
2 BBR BOOP arr 
ce Bie were Bales 
Bis 
S849 eee ptlee4 Oar7ét 
seat Bike bkeres Ble! 
S8Se TG 005204 
5853 1774 004737 0410S2e 
eed Oee000 000710 
eee 
fsetie BBirat to 
1 701 
S862 O2e0e0 005137 O0s5Se4 
aes 
$865 Oee030 004737 032050 
Sesoen ih 14 003143 
bS50 172516 


SG 
022416 


032310 
030576 


031770 


- = -——— ee = eee = 


MACY11 —— 10-JAN-78 12:02 PAGE 


000001 


000001 


001324 


117 


te ie BLOCK rao yee 


MOV WORD 
JSR MEM2 ¥ BLK ITH THIS WORD 
MOVB ae 8 omocnth Wa BITE G0 
JSR RNSFR™ WRITE THE 
JSR C, LOMEM2 K_IN MEMORY 
MOVB moet B.cHnocRs SET. READ COMMEND 
JSR 
INC HINCREN NT Bai anck 
ane FC, _— $€9 a hao no BLK 
:PERFORM SOFTWARE COMPARES OF ALL ME BLOCKS 
20$: MOV GET DATA 
JSR PC, CKMEM2 ; COMPARE THIS BLK TO GOOD DATA WORD 
INC NGREMENT TH T bata WORD 
JSR Pc, INCRNA NEW MA TO TR 
B 4 ?GO COMPARE NEXT MEM BLK 


30$: COM peLECt 


SOS: ISR C,GETXDP 
TSTB USHER 
BEQ 
CLR 3 8eR3 
SUS: 


; COMPLEMENT THE FLAG 
iBR te CORPARES SHOULD BE DONE NOW 


See ory SAVED XxXDP 
+3 EP UNTeUS MAP PRESENT 
J 


‘DISABLE CUNTBUS MAP 


Sans A ae 


i} 

be FORE Far THE ADE 
Wd Sep "uTH O Ue he 

ita Pt ae 


: ; *POSSIBLY 


T 
IF NT T ADRS 

ANG A 
“Bock ‘gle RHBUEYEOO0 (OCT), 


bara P a S 8,09, 8 tw -" te Slit ra 
prays i ti i Le he a Bele, 
jasetr a fis! siiPole Fare Poreict ne Tae 


1S SPECI 


POSSIBLY INCLUDING, THE USER-DEFINED PATTERN es ares ceeeeoiux 


+e" OPE 
LATTE 


HKITR 


bapeT Ye Feat a. 6 IN. Oo oR MAIL BOX 


SEE IF ITE B FoR THIS TEST 
UMP TO NEXT 


JMP 
a eRe rg ga eat ea UN eR PARAMS AND SUB-SYS 


gar PC, PREPKB 
; SAVE oe ELOMOeR, 2F, ae “PRESENT 


REPARE FOR POSSIBLE KBD INPUT 
commute STARTING ADR OF XXDP 


SEQ 0116 


| 


CZRGNDO RK611/06 SS VERIF 2 MACY11 30A(10S2) 10-JAN-78 12:02 SEQ 0117 
CZR6ND.P T4 


: PAGE 118 
NPR/MEMORY DATA PATTERN TEST 


ll 10-JAN-78 10:05 
5900 022106 012737 065660 ooss4e MOV WRWBUF,XDPSAV  ;SET XXDP SAVE AREA ADR 
5901 2114 37 S44 CLR XDPSAV+2 
S Deel 0047 2 JSR PC, SAVXDP ;GO_SAVE_XXDP_ LOADER 
A beet il 5001 133 MOVB #1, XOVLAD :SET INDICATORS 
9 1 11 0001 003134 MOVB #1, XOP 
5905 geet g0473 036034 JSR PC; LODP14 ;GENERATE PSEUDO-RAND PAT 14 
5906 2144 013737 005700 005536 MOV PT, PATRN ‘GET A COPY PT 
5907 Gee1se 0010 BNE 2 :BR_IF_PT NON-ZERO 
eee 154 012737 007400 005536 MOV #7400, PATRN *SET DEFLT PATRNS = PAT 8,9,10,11 
- INIT PARAMETERS, BEGIN TESTING 

5910 2162 004737 o40644 es: ISR Pc, SETUPM ; INIT PARAMS 
egit 166 7 035270 45: ISR PC; MXWRDC ‘COMPUTE MAX WORD COUNT FOR THIS MA 
591 el 701 TST RI :SEE IF ALL MEMORY TESTED YET 
5913 gizs 100501 BMI SOs :BR IF ALL DONE 

5914 178 905065 000012 CLR P.WCCRS) : INIT WORD COUNT TO 65,536(DEC) 
5915 2202 5701 TST Ri :SEE IF WROD CNT SHOULD’BE 65,536 
5316 2204 O01 BNE 6$ :BR IF YES 
591 2 NEG RO 
23/8 g 10 1006 le MOV RO,P.WC(RS) ;SET WORD COUNT 

$1 14 01376 S600 OO0010 6S: MOV MA’P.BALO(RS) ;SET BA BITS 0-15 
5920 Geeeee 13701 005602 MOV MaA+2.R1 :GET MA BITS i6-21 

ge! Gee BS e701 177774 BIC #177774,R1 ?MASK FOR LO 2 BITS 

ge 2 150165 000007 BISB Ri HI(RS) SET BA BITS 16,17 
5923 Oeee36 005737 057732 TST t :SEE_IF MEM MGT PRESENT 
5924 Oeeex2 100010 :BR IF NOT 


BPL 14 
59e5 ;SET UP MEM MGT 


SEG 0118 | 





CZRENDO RK611/06 SS VERIF 2 MACYLI (1052) 10-JAN-78 12:02 PAGE 11 
| CZRGND.P1L 10-JAN-78 10:05 st NPRSME MORY DATA PATTERN red? 
o0s604 MOV MA, PMA ;SET BUFFER ADDRESS | 
ee ge BE RES BIBER BT te ums 
14S MOV #1,R4 PATTERN B pet BES MER 
16$ BIT Ba ,PATRN THIS PATTERN IS CHOSEN 
18S: ASL RY BR IFT "YES TO POINT T 9 NEXT PA PATTERN 
BAe es 185 CHE feck FOR ANOT PATTERN 
20S: mov RG RL to OPY OF BOT NEB INTER 
01110 bee me T ON 
JSR PC; SETTUP >SET ae ER eBROR > 
ISR PC; SVPRMS ; THe FOR THIS XFER 
JSR PC’ LODBUF eh TH ts a BLK WITH SELECTED DATA 
g4 000001 MOVB TA.P.CMND(RS) -SET WRIT A COMMAND 
34 JSR PC, TRNSFR Wat THE DATA 
594 CLR R3 : TA WORD = 0 
5944 JSR PC, LOME: *LOAD MEM WITH ALL ZEROS 
2 000001 MOVB TA,P.CMND(RS) T g 
ISR PC, TRNSFR ;READ THE DATA FROM DISK 
es JSR PC, CMPBUF : OR a COMP: oor bate 
34 5 BR 18S : HEEK F NTERNAL "LOOP ON 
3320 -GET NEW MA FOR NEXT TRANSFER 
i aus: JSR PC, INCRMA ;COMPUTE NEXT MA 
pee BR GO IF MORE MEMORY TO TEST 
5 SOS: JSR PC, GETXDP ?RES XXDP LOADER 
5954 TSTB :SEE IF UNI MAP PRESENT 
5955 BEG Sus ?BR IF NOT RESENT 
5956 CLR a8SR3 :DISABLE UNI MAP 
5957 Sus: 
5958 
2oe0 
2ees : AEF reeose oe HRS TPT TS HercdeRtaae Tae wee couTaa Locic | 
2ae5 x THE PURPOSE OF ues TEST THE NPR CONTROL LOGIC 
te THIN THE CON ER THAT A CONTENT ON FOR 
?#UNIBUS CY ARI SSOR AND THE 





:e 
j HIRST a DRESS INCREMEN 
; ete 
I 


3 * xuST 

tro T TRA Aa T WORD Boor PATTERN 

3 #18 (IF CTED) Ti NS AULT). 

vita te suse «Fee esa" usec. 
 EASEETOIDS coho oe eae n-ExiS TERT HERORY' 
;#INST LON Loop ROLLER is p19 08 2 FROM 

7"TO Fi YCLE . THE XE CU ION ME LOOP SE TERMINES THE 
Bat TION ISTENT ME REFERENCES, AND THIS 


RA NON-EX 
%IS CHOSEN TO ALLOW ENOUGH NPR’S SO THAT THERE SHOULD BE NO 
:*#DATA LATE ERRORS IN A FAULT-FREE CONTROLLER. 





C10 
SPREE SEaSGEMiokas "HY MARU AE arPend FSR TesPeE 12 out gues 


5 ;#THE DATA WR FOR IFICATION, AND THE ABOVE 
5983 jATEST Is REPEATED HET Ne SHEED pata Cc . NO ERRORS EXPECTED. 
98s HATHE ARE REPEATED TIMES NEXT WORD 

S9ee THE PROPER PBTTER 6 3, OR 15) Feet 7 mE. 6 WRITE AND 
+E THE ENTIRE A LATE QoeuRs: ON A BIVEN TRANSFER, 
| 5988 :%THAT DATA IS NOT fTe- CHECK 
Baar 416 ; ‘it bis “youn °  paepeagysumiainaiiee oases sapsacloneimatenciatteamiamnaiianeene aie aman nesta 
338 hated 001324 ; Aov , STESTN T TEST NUMBER I IN APT MAIL BOX 
gay Gseu3e On4? } eGR ye FOB Looe Ro. ON EREOR THIS TEST 
599S 022436 000137 IMP i ohn 
;RETURN HERE FROM ste TR IF rest’ Sou 
004737 JSR PC, INITSS R PARAMS AND SUB-SYS 
004737 OR sORIVER Pa KBD INPUT 
YL 


s INITIALIZE E parent van SET a ee 
ROVE RE CRED T “oth F FT 
rer ) u pe. 0 

hi te acc)! FOR FULL TRACK 


THRITE DATA oni ail pa es INHIBIT 


al eatery NED ATT ERN 1S SELECTED 


SoeeenocRosese 


To TT 





—-O000~- 
pe 
= 
“> 
=e 
Fob fh 
<n 
S 
Ni 4 
+ 
ws 
iG) 
ra] 


1 
e012 are PATTERN 13 ADDRESS 
601 14S: MOV #16.,R1 
6014 MOV Pat Oe TET MEMORY TIMER 
601 10 16S: MOV RO p. OCRS) 

1 141 CLRB DL TFL There efhac 
601 112737 000001 003142 MOVE #1, NORTRY 
6018 123 000001 MOVB suRDATA,E P. ar” T WR atts 
601 7 J auhoe NG REF 

z , 141 TSTB pctFLe par vat E CHEN REE CURRED 
032737 oo00002 005474 BT HBSERR, RECODE fe IF 4 SECTOR ERROR 
eres 913 000001 RO vB Prac. P. CMNDC(RS ITE ogiteck COMMAND 


JSR PC, OR 
aiz7es seco oooc1o 168% ey!" LEE MIE, bgt: nie RERRE, AST Horo 


EeEBDE UNUSED 


LR cféA 
000001 MOVB TA,P. cnn ney Fae: 

7 JSR PC. REFNEM ;RE 

237 003141 TSTe OL TFL LG BR rae DATA CATE ERROR O€CURRED 

Geeua7 065660 cn ends, RWBUF iC ARE Past DATA WORD 
6035 gee670 D047 7 0437 JSR PC REPSUP : GATHER TATUS FOR PRINTOUT 
74 6037 1777 001174 MOV -olR REGS ?GOOD DATA W 

6037 O22702 013737 O65660 001176 MOV RWBUF , $REGS :BAD DATA WORD 


| GZRENDO RK611/06 $S RIF 2 MACY11 30A(10S2) 10-JAN-78 12:02 PAGE 121 
Pil -JAN-78 10:05 TS UNIBUS CONTENTION TEST 
| 6038 022710 104110 ERROR 110 :"READ ERROR WHILE BAI SET” 
60 -SET UP FOR NEXT PASS THROUGH LOOP 
| BO40 688718 opisae 20S: DEC R BEE, F ALL DONE YET 
604 716 137 oO225s0 IMP 16 :JUMP TO CONTINUE TESTING 
6043 022722 24s: 
eous 
pos) AEST Eee PURTT-DRIVE, INTER E ENT 
8 tkTE EST MUL TOR ve 
6049 teTHis TE OPERATIONS, tneee Tees FAR 
a oO ORE 
Fel ane flow RENT OETVE GPERATION ce 
S4 RST INED WH (S) 
epee Lees vib BSOCETRN fateh ielieos SeEVE 
BOSE ee ¢ 1s Mg oer 
6059 iT na Grives, Baath 
i Oca nae gee re 
1 iH A NO IS GUN ay 4 CURRENT 
ees oak ‘F ger th The Ce Cera ds b16 
6064 ;#(DEC) WORDS SECTOR FORMAT OR 17,1S2(DEC) WORDS IF 22 sector 
BOBS jaf OEAT TH To AF I +) SECTOR OF DATA 
: sThat r RES 1% -126 MILL T tr IN 
at petuot TaMba, THe RIVE 
e970 bcc) Fa ae a La ed A a ete 
ear BFS Ab FL fo Brbtse5""* 
ie 022722 ee ee rr 
eee ie a ee ROR ars Te 
38 354 CER ahOR THIS TEST 
6078 O22e742 000137 023742 aie im FROM oa -— aan ND-OF - po ass ROUT INE 
ae ee aes a Peateaseh Teese the H=-5YS 
; SEARCH CT eee abtne ENTE “FREE CYLS TO USE 
£885 022756 013703 o0SE60 sseoncn BS seen Fi OR 2 ROLE T RE 
att 23 BS5525 003234 oe: MOV #BSSOFT+10,RO  ;POINTER TO SOFTWARE BSF 
6086 gee770 020310 Ses: ere R34! (RO) :SEE IF IF THIS CYL LISTED 
NC SINC Foy L 
eo89 i 3 020040 CMP R3, LSTCYL :SEE IF CYL < 632/14S6 
6030 i v4 BLO 4 :BR 
6091 Ge3004 9001 023742 IMP MULTI1 :GO SKIP THIS TEST 
6092 3010 000004 44S: ADD #4, RO :INCR BSF POINTER 
6093 023014 Oe20027 OcO4224 CMP RO; #BSFACT :SEE IF STILL IN SOFTWARE BSF 





SEQ 0120 


{ 
! 





E10 


CZR6ND0 RK611706 $s RIF 2c MACY11 30A(10S2) 19-JAN- 78 12:02 PAGE 122 SEQ 0121 
CZR6ND.P11 AN-78 10:05 Tb MULTI-DRIVE INTERFERENCE ter 

6094 1 BNE 46S ;BR_IF_YES 

6095 000010 ADD #10,R0 tINCR POINTER FOR FACTORY BSF 

503% o0s224 46S: CMP RO, &BSFACT+S512. :SEE IF END OF FACTORY BSF REACHED 

Ses ?BR_IF_NOT YE 
6038 ?SEE IF CAME HERE BEFORE 
:BR IF YES 


BR 42s CONTINUE LOOKING 
SOS: DEC RS ;DECR C 


MOV 
;CHECK DRVLST FOR =SiHER saan ne, VO RECAL IBRATE THEM 
000001 MOVB #SEEK,P.CMND(RS) ; Ek 
R TIPLE-DRIVES FLAG 


HINT Ort DRIVE NO 
: cYL =O 
SEE 


i 
NB 
ui 
8 
i 
N 


se 
ae 2888 

peestareesad 

ahs 2g 

=z 

® 3 


oo0002 e 
7 000010 4S: CMP #10,R0 ; re eet ALL DRIVES CHECKED YET 
100 76 005610 iste Bev. ST(RO) See ae ht 5 DRIVE IS MARKED IN LIST 
3108 Og oossoo cnr RO, DRIVE : el BARKED RED DRIVE IS DRIVE UNDER TEST 
gla G06 MOVB RO,P.ORVN(RS) SET OR 
1 023624 JSR PC; TSTTYP : ome Ab Jublce RENT DRIVE 
31 1 a TNC Ri oe CATE MORE THAN 1 DRIVE 
31 ; BR 4§ KE _ 
31 701 8S: TST Rl ; Pe " 1 RIVE PRESENT 
023136 000137 023742 one MULTI1 NO 1 tEST "RUN 
-SEEK TO CYLINDER CYL ON DRIVE T, SET PARAMS FOR DATA XFER 
g2314e 737 10 os: ISR PC, INITSS ; NIT Ss. 
31 3765 O2 oo0002 MOV Cc P-CYLN(RS) ; NOR = = CYL 
3154 CLR P.SECT(RS) : SET hy) 
sige 7 136400 oo0012 HOV, s- 7152. ,P. worn ch jee mez (DEC) SECTORS 
1 1 BEQ 12$ a 
ge3 74 «Ol 4 400 000012 MOV #-15616 Puc er it ne gl SECTORS 
1 doe & 000010 12s: MOV #PATI PBA : 
1 aboRESs INCREMENT INHIBIT 


000014 BIS #OTBA 
000001 


Maa 


Re ON CON DRIVE UNDER TEST 


er Bus oe = a ee 


28 Ye 
es 
ae 
2 

g 
o 
Y 
go 
is 
ion 


CYL LIST 


foe four 
a8 


Aannn sar aesDREADAPASRERLADEEAASSAAAALISAARAAAAAARS 
ESSASSBIRRPERE BIE BRR PONS cs can ca SBIR REORSS 


277 
1SS: JSR GENERATE A PSEUDO-RANDOM CYL NO. 
4 17714S OOSSO4 BIC #1?714S CYLNOR > ALWAYS KEEP UNDER 632 
MOV CYLNOR, tro) ;SET YL_NO. IN TABLE 
1 BNE i6 : NOT 0 
4 177776 INC -2(RO) ; MAK’ bas nHON-ZERO 
4S 38 1 16S: DEC RI iD Cc OOP C 
46 7 1364 BNE 15S I ment BT BONE LOAD LOADING LIST YET 
47 023274 012701 003204 MOV #CYLLST,RI1 :GET ADRS OF RAND C L 
48 023300 010537 023372 MOV RS,19$ :SET PARAM BLK ADRS ‘For DRIVER 
49 023304 0o0S5000 CLR RO ?INIT DRIVE NO. TO O 


F1O 


CZRGNDO RK611/06 SS VERIF 2 MACY11 30A(10S2) 10-JAN-78 12:02 PAGE 123 SEQ 0122 
CZR6NO.P11 10-JAN-78 10:05 Tb MUL TI-DRIVE INTERFERENCE TEST 
61 2700 000010 18$: CMP #10,RO ;SEE_IF ALL DRIVES CHECKED YET 
61 4 BEQ ees :BR IF YES 
61 tA 005610 rte VLST(RO) ieee F THIS DRIVE PRESENT 
61 oo0ss00 CMPB RO, ORIVE :SEE IF THIS IS DRIVE UNDER TEST 
61 14 BEQ 20$ :BR IF YE 
6 1 MOVB RO P.DRVN(RS) _:SET DRIVE NO. PARAMETER 
1 1 DO000 MOV (R1)+,P.CYLN(RS)’ :SET cud NOER NO. 
61 2622 JSR ;$T V AND CURRENT CMNDS 
61 “eG BOEESS TSTB DOTYLST(RO) SEE F’ BRE 
61 1 ‘BR IF YES 
61 000004 000007 BISB .CDT,P.CSIH(RS) ;ELSE SET FOR RKO7 
000097 1 CLRB P. CS1H(RS) 
052604 : ISR PC,C. INIT ;GO_START “Goes Ment DRIVE 





Bs sae 
i 
go 3. 
me 
Sees” 
23 
3 
5 


at DRIVES CHECKED YET 


000010 26S: CMP #10, RO Ne 

IF TaIS DRIVE MARKED IN LIST 
é 

F 


bt ero) 
aM ORIVE 
T.DRV(RO) , SAVWRD’ ; 


WRITE DATA ON DRIVE UNDER TEST, WITH BAI 
112765 9001 3 1 225 MOVB #WRDATA,P.CMND(RS) ; rt —E DATA COMMAND 
023414 o1 BesaHs poDOe PO” REE ENCRSD ist cM NO. 
34 : 3esH 4 HOV, ariut DL. A. NORM ret ox SPECIAL DRIVER RETURN ADDRESS 
a Ooi? 3624 SR TStTYP sWRITE 1 1 CYL + 1 SECTOR AT CYL FC 
40 005474 BIT »RECODE SEE IF ERROR 
esis O04 000131 000001 MOVB TeHK P.CMND(RS pag SET TE rGHeSK COMMAND 
bags 04254 Is PC AL” FL! C HE DATA WRITTEN 
CHECK ATTENTIONS CHECK CYLINDER OGRE g FROM ALL OTHER DRIVES 
gea4ee MO b pitt on } oftve’§ 
D STAT, RS) a AD Ve STATUS COMMAND 
MOV #CYLLST;Ri 
CLR 
BE 


oe 
8 
e 
2<2 
: 
Sy 
Fa} 
ff 


Rfoarorrs 
oe 


F NTHTS IS DRIVE UNDER TEST 
I 


003200 GOT ATT’N FROM THIS DRIVE 


F 
YES 


DOVER LOO OB VI Leso Ga Voor Lond Swe WIN FOS ODO NOE OO 


COOSCSOSOSSOKTOo 
pt dt tt tt Se 8 tt 8 Sb 8 8h 8 


Coe 
neo Seye - 
28 
SIERRA 
S 
a 


é 
: : STATUS FOR PRINTOUT 
Ge 104 FS ERROR ih :"NO ATTENTION ON SEEK” 
One oo0000 28s: MOVB O,P.DRVN(RS) SET THIS DRIVE NO. 
Oe 737 023624 JSR PC’ TSTTYP *READ STATUS OF THIS DRIVE 
Ge 6 oo00s2 MOV Ps B10(RS),R3 :GET STATUS BYTE B10 
ROR ?GET CYL ADRS RIGHT-JUSTIFIED 
fe ROR fs 
be00 006003 ROR R3 
6201 o4e703 177000 BIC #177000,R3 ;CLEAR OFF UNUSED BITS 
6202 3078 2103 CMP (R1)+,R3 ; COMPARE TO EXPECTED CYLINDER 
6203 023576 001410 BEQ EQUAL 
O04 023600 016137 177776 oO01212 MOV -2(R1),SREG1Y ? GOOD CYL NO. 
6205 023606 010337 001214 MOV R3, SREGIS :BAD CYL NO. 


G10 


;THIS IS THE NORMAL_RETURN FROM THE — WHICH IS USED TO CHECK 
THE RESULTS OF MULTI-DRIVE OPERATIONS 


eae rata 000200 003000 AULHDL: BIT #ROY, T.CS1 Lae fat RDY IS SET 
4 G19 052204 Be B3 .cSTS ; ab CONT LER REGISTERS 
023670 013765 003000 oo00016 MOV reasic P.CS1(RS) ;GET CS1 B 
737 PC, REPSUP ;P PREPARE ota FOR PRINTOUT 
ths ow ; “ INTRP men NTRLR NOT RDY 
psa? S353 Bhasas BRSSAg Cosco GS: = BON, SavamD’ VO GeV ot att Nn ette iN BITS 0-7 


emerge i i SS VERIF 2 MACY11 30A(1052) 10-JAN-78 12:02 PAGE 124 SEQ 0123 
CZR6ND.P 10-JAN-78 10:05 T6 MULTI-DRIVE INTERFERENCE TEST 
6206 023612 004737 043720 PC, REPSUP saree, pe: FOR PRINTOUT 
6207 023616 104114 ERROR 114 o Cub hen INCORRECT” 
32$: INC RO LINC RERERT prive 9. 
ei BR 26S R NOT DONE WITH ALL DRIVES YET 
13 ; THIS ROUTINE TESTS FOR THE DRIVE TYPE AND SETS P.CSIH ACCORDINGLY 
3 7’ 005620 TSTTYP: TSTB OTYLST(RO) E IF ypece 
1} 853883 | A8T484 eos BR 1 
is O2363e 152765 o00004% 000007 th 4B. COT,P P.CSIHCRSS SELSE SETUP FOR RKO7 
i Oeaeue 108085 0007 1$: erRe Bec H(RS) ;SETUP FOR RKO6 
18 este es: JSR PC, ORVCAL 
43 0236S2 000207 RTS PC 
3 


COAMAOAAS SAAS AAS 


EEE 
SONNE 
BS 
i 


6232 023716 1127 77 oooo01 MOVB R, p. CHIND CR YSTEM CLEAR MAND 
6533 Oe37e4 g2 Ud Oue7a2 003044 MOV seco ebfine HERA DRIVER R SURN ADDRESS 
6235 023736 000137 042732 JMP : TAKE NORMAL RETURN 
6237 023742 MULTI1: 
6238 
6233 
6240 
ps il .SBTTL END OF PASS ROUTINE 
6243 tte she eo gt + woes > > | eae aaa aaa aman 
Beak ? INCRE NT pas PASS NUMBER ($PASS) 
624S Tye ND PASS #XXXXX" (WHERE XXXXX IS A DECIMAL NUMBER) 
6246 *IF THERES A RON TOR GO TO IT 
be? ;#IF THERE ISN’T JUMP TO APTPAS 
6249 023742 SEOP: 
023742 O00004 SCOPE 
6251 023744 005237 001330 INC SDEVCT ; INCREMENT DEVICE COUNT FOR APT 
3750 000137 017332 IMP ‘Thue 569 EE IF MORE DRIVES TO TEST ON THIS PASS 
3754 DUNPAS: ; THIS IS RULY THE END OF ASS 
4 042777 OO0100 155162 bic BITS, a$STKS DISARLS TTY KBD INTERRUPT 
6255 372 37 001102 CLR NA ZER THE TEST NUM 
7 77; Ooi soe che Space. NCR N Bass os NUMBER 
853556 7 sttalat 001326 bf + G0000, SPASS Hi Palos NEG. NUMBER 
6259 Oe4004 00532 DEC (PC)+ 
4006 SEOPCT: .WORD 


6260 Oe 000001 1 
6261 Oe4010 003022 BGT SDOAGN een 
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B525 BS48i8 


6264 d24016 


Bh6087 
006 


861388 


024062 
000042 


377 
Osisot 
000001 
001326 
001102 
017320 


MACY11 So OFF 


ooo 
Bzoi23 * 
001340 
ooo00e 


SENDCT: 


S$GET42: 


SENDAD: J 


SDOAGN: 


J 
SRTNAD: .WO 


SENOMG: (AS 


APTPAS: 


18: 
es: 


10-JAN-78 12:02 PAGE 125 
ND OF PASS ROUTINE 


(PC) +, a(PC)+ ;;RESTORE COUNTER 
SENOMG 
$PASS,-(SP) SEES F F 
a, Lee “Bet Fh vase WITH SIGN 
‘ede R ger T. MONT TOR ADR SHORES. 
SDOAGN :;BRANCH IF NO MONITOR 
::;CLEAR THE WORL 
PC, (RO) 5 180 TO MONITOR 
;;SAVE ROOM 
::FOR 
::ACTI1L 
a(PC)+ ; ; RETURN 
APTPAS 


<tast 18, eno pasé?NULt CHARACTER STRING 


BAPTENV, SENV RUN UNDER APT ? 
; BRANCH if oN NOT 
ASS, #2 = TWO PASSES ? 
H tF NOT 
SISTA j INCREMENT TEST NUMBER 
NEWPAS iJMP TO THE MAIN PROGRAM 


RKO& HEAD ALIGNMENT AID 


SEQ 0124 


kgnerge RK611/06 SS VERIF 2 


R6ND.P11 


6292 


CES! 


EEEEEEEES 
Se FSP 


ee ear 
WONOU CWO 


RD 


024134 012737 
peit pie7oe 
2706 

1374 

12706 


he 
son F2GK 
NNNNN 


tb be Ph ee 
a 
agdaade 


fruroruroru 


ee DI 


R 

= 
row foro 

Waaes 


NN 
SS 


fu 
r.. 
oo 
ares 


-_ 
<= 

8 — 

=f 

Oo 

- 

fu 


we WE 
a7 


1 cae 
ee fie 
364 37 

024370 005037 
374 th 7 
402 1 

024404 012737 

0244, 
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000340 


001100 
001140 
001100 


7170 
ee 
464 
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177776 ASTART: MOV 
.SBTTL INITIALIZE Rte CO TAGS 
; ; CLEAR THE Connon Tags. OecMTAG) AREA 





MO MTAG, R& ;;FIRST LOCATION TO BE CLEARED 
cLR (RE)+ ane >:CLEAR MEMORY LOCATION 
<= Saaiephies "3 ;LOOP_BACK IF _NO 
«teeteal The . ris veet es 3;SETUP THE STACK POINTER 
go0020 ai mov £0 E ael0ry C ; j 107 LVECTOR FOR SCOPE ROUTINE 
900036 mov * Rade Seer sETY ci EMT VECTOR FOR ERROR ROUTINE 
00034 nov * TRB aT BvEC' TRAP VECTOR FOR TRAP CALLS 
enter MOV 8 warvecce Ut (Pek FAILURE VECTOR 
goades MOV $240 gePHR c+e He 
006 He Or hock cr 
IMES Hg Rit gil 
001115 at ug dapat: 
901108 ;51N See iess, rn SCOPE 
;;SIZE mite oR IT 1s 
: }EQUAL A REGIS ER. 
p00004 Anve®. fiers set TOR 
aie Bicruay a eae 
154602 Pm TO ERE RARDWARE SWR 
5 BRENCH NO TIMEOUT UT TRAP OCCURRED 
T 
64S: 4: ot TEANO TIMEOUT 
001140 65S: ae. TO SOFTWARE SWR 
01142 MOV sae Ee DISPLAY 
. 66S: MOV #ERRVEC ;;RESTORE ERROR VECTOR 
CLR SPASS ;;CLEAR PASS COUNT 
001341 BITs “Nena 28% ii TEST USER SI UNDER APT 
001140 ne MOV #SSWREG, SWR NO, USE apts SWITCH REGISTER 
7 CLR AUTOFG CLEAR THE SPECIAL FLAG 
-SBTTL RKOG HEAD ALIGNNEN AID 
RESET Reset UNIBUS 
TYPE /DZREN. T PROGRAM I.D. FOR PART 2 
TYPE ” PART 
ooo eRe SR SERRE nae Tura Se 
000060 MOV #KBOHOL , J#TKVEC LOAD VECT croR FOR TTY 80 
000062 MOV #PR4 aeTKVEC+2 :SET KBD PRIORITY = 
MOV RKVEC,R1 :GET ADDRES S OF VECTOR STORAGE 
MOV BT INtR. (RL)+ :SET IT TO INTERRUPT HNDLR 


SEG 0125 


J10 
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B38 Bouuse O1e73? OD0000 177776 MOY SPO’ aaPS HALLOW ALL INTERRUPTS. seit 
p3d3 pSqcos B1s335 telat 005660 MOV #0,F¢ :SET FIRS 0 
635 
e3e2 12 GIVEID: 
6353 Ble 12737 176543 054732 MOV #176543,SHINUM ;INITIALIZE PSEUDO-RANDOM NUMBERS 
6354 12737 123456 054734 MOV #123456, SLONUM 
5 105037 3116 CLRB MOFLAG ;CLEAR PARAM_INP_FLAG 

05037 3120 CLRB TSTING ; CLEAR “RUNNING TESTS” FLAG 
635 905302 CLR STALLS :DON’T STALL _ON OPERATIONS 
6 4 24 MOV #PRVCMD, R1 :ZERO OUT PREV COMMAND 
635 000006 MOV #6, RO 
6360 1 425: CLR (RL)+ 
636 DEC RO 
6 BNE 42$ 
6 1 003126 CLRB ERRCNT CLEAR ERROR COUNT FOR RESTARTS 
6364 Gewese 104401 011365 TYPE IDENT — PROGRAM IDENTIFICATION 
6365 70 105737 003145 rere BLPOVL igs Py ee FILE OVERLAID 
P3e9 74 0010 1 , BNE ASKTYP ALL DRIVE TYPES 
6368 578 104401 011431 TYPE , FORHLP task rer HEL SIRED 
6370 Deue04 112601 MOVB (SP)+,R1 GET CHARACTE 
6371 122701 ooo001s CMPB #015,R1 j SEE F wgcRe TYPED 
637. ; BEQ ASKMOD HELP NEEDED 
637 12 001402 BEQ ASKTYP + BS TF One ALL DRIVE TYPES 
6374 614 104401 066277 TYPE ,HLPFIL ?HELP REQUESTED- TYPE INFO. 
6376 O24620 104401 001315 ASKTYP: TYPE , SCRLF ;TO ENTER ALL ORIVE TYPES 
6377 Oe%6e4 104401 012554 TYPE DTYMSG jMES Ai FROR ENTER DRIVE TYPE 
6378 Ge4639 000 CLR RO ist ART ROM 
63 1044901 001315 1S: TYPE $CRLF 
6380 195037 007530 CLRB BADDRV+6 ig REAR THE LOC & FOR TYPE 
638 r) b 007522 TYPE BADDRV VE, 

10046 MOV goth R ON waTack 
6383 1 TYPOC HE DRIVE 
6384 40} c 2576 TYPE ‘per’ n't 
6385 7. Arese JSR pen BR EPKB R 
6388 7 o0sS2e 2s: TST INtCHR ; ANY BAY. THING READ IN YET ? 
6388 i gos620 LR8 SFyLST(RO) SS Rssune 1175 ’S A RKOS 
6389 74 013701 See MOV INTCHR, Ri ee 5 
6390 709 gee70 000067 CMP #°7,R1° SA Ro? ? 
6331 I BNE 3$ H IF NOT 

208 12760 oo0004 o0S620 * nove ag. .CDT, ommsriRoi ser Bt yBKO7 FLAG 

6394 71 27 000007 : CMP #7, RO VES PRE SET UP YET ? 
ie Geri 808 cis Is Bek 
6 *DETERMINE DESIRED OPERATIONAL MODE 
6398 024724 104401 011466 ASKMOD: TYPE TYBHOD ;ASK FOR DESIRED OPERATIONAL MODE 
6399 024730 004737 030576 ISR PC, PREPKB j PREPARE FOR KBD INPUT 
6400 geu7 34 005737 o0sS22 1S: TST TNTCHR *CHECK FOR TTY INPUT 
6401 4740 001775 BEG 1S ;BR IF NO INPUT YET 
640e Oe4¥74e 013701 oDss2e2 MOV INTCHR,R1 :GET INPUT CHAR INTO R1 


6403 Oe4746 022701 Od000ee CMP #022 ,Ri :SEE IF (tR) TYPED 


ee he 


Om VoUNL wr 
BE 


COROT SSCOOCCTrrrrn 
OCTET ELE EE EEL ES 





ooso 
104401 


FAGSSS 


8 


St See pe ee oe ey 
Bo te ee ee 


013737 
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000115 


025006 
000101 


144 
030616 





MACY11 30A(10S2) 


o0S66e 
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BEQ GIVEID ;BR IF (¢R), TO RESTART 

CMP #’M,R1 :1S IT MANUAL MODE ? 

BNE 2s :BR IF_NOT MANUAL 

IMP MANUAL : JUMP_TO MANUAL MODE ROUTINE 
2S: CMP #’A,RI :I1S IT AUTO MODE ? 

BNE 3$ :BR IF_ NOT AUTO 

IMP AUTG :JUMP TO AUTO MODE ROUTINE 
3S: JSR PC, ECOBAD *ECHO BAD INPUT 

BR ASKMOD :BR TO ASK FOR MODE AGAIN 
:MANUAL SELECT MODE ROUTINE 
MANUAL : 

CLR AUTOFG ;CLEAR SPECIAL _FLAG 

TYPE , TYPMAN ‘TYPE “MANUAL SELECT MODE” 
ASKDRV: TYPE ENTDRV ?ASK FOR DRIVE NUMBER 

ISR PC, PREPKB : FOR KBD INPUT 
= bea TNTCHR sBEE IF One + CK AGAIN 

MOV INTCHR,R1 >GET CHNRRETER itt Ri 

CMP Ri, #022 *TEST FOR (#R) TYPED 

BEQ GIVETD *BR IF (t#R) TO RESTART 

CMP 1,8’0 iC 0 ASCII O 

BLT BAtFLU :BR IF <O (BRD INPUT) 

CMP Ri, #’7 C O ASCII 7 

Bec eAiFLu ieee Asche erie 

MOV R1 ORIVE i STBRE pRive NUMBER 

MOV DRIVE,.RO ‘AND SET UP TO SIZE DRIVE 

MOVB DTYLST(RO),TYPFMt ;LOAD THE FLAG FOR 6 OR 7 

MOV 4, LCM 

nov #631, IM+2 

MOV #63 BE DFL T+2 

MOV #6 > PRAL T+ 

MOV #400; HOLD1 

MOV 825 HOLDS 

MOV #10025, HOLDY 

MOV #632 ESTCYL ;LOAD THE LAST CYLINDER NUMBER 

TSTB TYPFA :IS AN RKO? ? 

BEQ 33 ‘BRANCH IF NOT 

MOV #1450, M6 

MOV #1455; IM+2 

MOV #1456;LC 

MOV #1456; PROFLT+2 

MOV #14 *P Ine6 

MOV 4 HOL 

MOV #1 HOLO4 

MOV #1000, HOLD1 
a nov #1456,LSTCYL ;OTHERWISE SET UP THE LAST CYLINDER 
; MOVB #-1, HOALI ;SET PROGRAM STATUS FLAG 
: IMP aaTYPED :GET DRIVE STATISTICS 
; INTGO: CLR HDAL I ; HOUSEKEEP 

MOV LSTCYL,LC !AND SETUP MAX CYLINDER CNT 


SES 0127 


RS, ES RR RR a 


SSRN 18 S88 fol 


8 10:05 
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AD ALIGNMENT AID 


76 03 BR BAIA ;PROCEED WITH ny eStRED DRIVE 
730 030616 BAIFLU: Jor PCy OBAD ECH Baek To'8 
025306 004737 032310 re 7 onTve FoR ame statu ALIZE CUBSYSTEN 
92531 904737 033252 ISR PC, CHKDRV CK ORIVE FOR ON-LINE,READY,WRITE LOCK 
1 16 ASKDRV SS OF ERROR RE URN FOR CHKDRYV 
025320 004737 035344 JSR PC, DRVSER ;ROOR “DRIVE SER. NO. 
iSET UF DESIRED SUB MORE OF OPERATION 
Geese 105037 011364 CLRB VERIFY ;CLEAR VERIFY MODE FLAG 
104401 012253 TYPE NTMOD :ASK FOR ALIGN OR EXERCISE SUB-MODE 
737 030576 JSR PC. PREPKB :PREPARE FOR KBD INPUT 
{Sano ae ns a Beef are TO" Btecx aca 
13701 oossee MOV INTCHR,R1 :GET CHAR INTO Ri 
pe0187 on0022 cHe 1, #0 2 i SEE IF (#R) TYPED 
1 2 *BR I T (¢R) 
025360 000137 o24512 IMP GIVEID ; JUMP TO RESTART 
g Belbbe ee ae oe 
1 925016 IMP ASKDRV UME TO 0 ASK FOR DRIVE AGAIN 
 Baanae EAA BP eRe ete sucsre 
GesucH 020127 000105 CMP Ri, #°E i SEE IF EX NEXERCISE ate 
Oesiie heated 025710 kid MANEX XERCISES 
416 020127 000126 4S: CMP Ri, #"V Bec IF VERIFY REQUESTED 
Oesves ether 025672 ki Bay : TO VERIFY MODE 
Sy 004737 030616 6S: JSR PC, ECOBAD :ECHO BAD INPUT 
025434 000733 BR SUBMOD ?ASK FOR SUB-MODE AGAIN 
we jmANuAL ALIGNMENT MODE 
36 104401 012413 Rb NALN ;REPORT MANUAL ALIGNMENT MODE 
jREQUEST CHEDK™ DESIRED HEAD 
o2s442 104401 012620 ASKHE NTHED ;ASK FOR DESIRED HEAD 
Bees acre? Babes ae a: an wore oie 
001775 / REQ 1S ?BR IF NONE TO CHECK AGAIN 
460 O1 gossee MOV INTCHR,R1 ; r¢ CHAR INTO R 
490 i . SNE Ry. ade EP Not eR) 
4 2 13 oo0001 MOVB RE ALP. cmnocRs} T RECALIBRATE COMMAND 
55500 605737 yest JSR RVCAL eid 1BRAT “BRive 
1 4512 IMP ESvETD 
Gseeis 651067 000003 2s: cn — oer F (90) | , 
16 13765 900113 000001 nove ak Fat, cnocrs Ret R Cant RATE COMMAND 
pSeesq 690139 02501 IMP PS, PRY Ate P10, AaK BAY BRIVE AGAIN 
025534 020127 000032 3S: CMP Ri woe EE IF (#2) 
025540 O01 BNE 4g" BR IF NOT (#2) 


ee ee - - 


| Sia eee SS VERIF 2 SEQ 0129 


| CZR6ND.P 10-JAN-78 10:05 
112765 000113 
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MOVB pg al -CMND(RS) ;SET RECALIBRATE COMMAND 


000001 


42 SR AL bie RA 
ogi 32 poses TRE SuehoD 8 1 A PBA W MANUAL SUB-MODE 
4S: CMP :C a E TRACK TO ASCII O 
ono0062 Rip t we i RB wbare rhBeR i II 2 
1 00060 Bic "0,R1 reel Ascii BITS - 
1 o0sS20 Mov Ri, TRACK ST TRACK (HEAD) NUMBER 
7 16 Ss: ISR Cc ECOBAD I ta 
1 442 IMP SKHED N FOR HEAD NUMBER 
;UNLOAD HEADS,AND WHEN READY, START SPINDLE AND SEEK TO ALN CYL 
685 011364 bs: rsre VERIFY ; IF a Y MODE 
47 033566 JSR PC, WAITYR ; UNL » HAL T wie <R> TYPED, LOAD 
113765 5 oooo00s 38s: MOVB TRACK P RRCK (RS) COE 
eH Oy2815 TSR reetate™ sSEEK 10 ny ae CYLINDER 
ae 1 g2 MOV TRACK, R1 }GET BINARY T 
176755 yeaa paeB Rie BI No COnVER AD AST ATO MS MS 7 BUFF . 
140437 5 6793 TYP HEDSEL fee HEAD Ng. INTO SG 
000137 o2s5442 IMP ASKHE 0 BACK TO ASK FOR NEM HEAD SELECT 
: MANUAL SELECT VE VERIFY MODE 
taecg7 pogggy cuisen ARVN: GOB ShNGRETY REDON PUem ROGER nove 
000137 oes442 ASKHED 'GO ASK FOR DESIRED HEAD 
jitANUAL RANDOM SEEK EXERCISE ROUTINE 
904737 033566 7 ssR barteri sYNLOBD HEADS, WAIT FOR <R> TYPED, LOAD 
052701 oo00060 BIS #'O,R ;COWERT TO ASCII 
1191 12405 nove Ri, ar IVE NUM INTO OUTPUT BUFFER 
bt O16514 MOV bRNDLNG, RO apa ares | OPEK COUNTER 
ii 117 oo00001 MOVB #SEEK,P.CMND(RS) 
04757 43 33: 88 FC, PR ADR T CRO ey TNDER ADDRESS 
O13785 Bosebs oo0002 - nov aay Bovine) as a NDER ADDRESS 
;CHECK F BR TTY INP T ING exert 
005737 o0sS22 oe Ne St ; Sif Fil 
001016 BRE 3 :BR IF A CHAR WAS TYPED 
eorsey BeOS BECT'SDT Soae SOUCTRC ver 
042777 000100 153134 BIC #B1T&,a$STKS 
113766 900113 000001 MOVB #RECAL , P. CMND( a Pete ea HOMMAND 
47 4254 Is PC, DRV yeni Rec IBRATE ORIVE 
104401 1310 TYPE , SBELL RING BELL TO SIGNIFY END OF EXERCISES 
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657 
f675 Oeeage 
bare D26036 
6575 
6S 
6S 
6578 
6579 
6' 
6581 
6582 
6583 1 
6S 1 
65 ll 
E88? seize 
He Sie 
6589 0261 
6590 pee 38 
Peas 142 
6S 
6533 
6594 
65395 


BESS o 


BeEees 
SRE PERERIRE 


3a 


SEREESSSSES 
DONC UI £W-O 


rats 
So 


oo 
if 
AT 


Oeb264 
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37 


28 
gs 


Joo 
NN 


— f—— 
SN 


aR 


rm 
N 


Bae SuSS Besar 


865- 
Oo+t£or 


1 
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02S3 

005See 
00002e 
000113 


beusie 
00000 


Ente 


epnoe 
RTS 
Betis Rete 


2 
Bi 
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oooo01 
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000001 


ooo0001 


000001 


003150 


011364 


IMP SUBMOD ;GO_ASK FOR NEW MANUAL SUB-MODE 
3S: MOV INTCHR,R1 ?GET CHARACTER INTO RI 
CMP R1, #022 ; SEE IF (4#R) 
BNE °BR IF NOT (tR) 
MOVB #RECAL.P.CMNO(RS) ;SET RECALIBRATE COMMAND 
JSR PC, ORVCAL jRECALI TE ORIVE 
IMP GIVEID : JUMP TO RESTART 
4S: CMP R1, #003 :SEE IF (#C) 
BNE *BR IF NOT (46) 
MOVB #RECAL,P.CMND(RS) ;SET RECALIBRATE COMMAND 
ISR PC, ORVCAL ;RECALIBRATE DRIVE 
IMP ASKDRV ; JUMP TO ASK FOR NEW DRIVE NUMBER 
S$: CMP R1, #032 SEE IF (#2) 
BNE *BR IF NOT (42) 
MOVB #RECAL.P.CMND(RSS ;SET RECALIBRATE COMMAND 
ISR PC, DRVCAL ;RECALIBRATE DRIVE 
IMP SUBMOD : JUMP TO ASK FOR NEW MANUAL SUB-MODE 
6S: ISR PC. ECOBAD *ECHO BAD INPUT 
TYPE MANEXR :VERIFY STILL IN MANUAL EXERCISES 
\s :BR TO CONTINUE EXERCISES 
ARUTO SELECT MODE ROUTINE 
MOV #-1, AUTOFG ;SET SPECIA FLAG 
ISR Pc, tNITSS + INITIALI SUBSYSTEM 
TYPE TYPAUT :TYPE TO SELECT MODE” 
1S: CLRB VERIFY *CLEAR VERIFY MODE FLAG 
TYPE ENTMOD :ASK FOR ALIGN, VERIFY, OR EXERCISE 
JSR PC. PREPKB :PREPARE FOR KEYBOARD INPUT 
ope BEG INTCHR Ee OA eee tuECK AGAIN 
MOV FATCHR R1 iBB bua FATO RI 
MP Rl, #022 :SEE IF (#R) TYPED 
BNE 3$ jBR AL NOT (#R) 
IMP GIVEID : TO RESTART 
3S: CMP R1,8#’A > SEE ir i O ALIGNMENT REQUESTED 
BEQ TAL :BR IF AU : ALIGNMENT REQUESTED 
CMP 1,#°E :SEE IF AUTO EXERCISES REQUESTED 
BNE 4 :BR IF EXERCISES NOT REQUESTED 
IMP AUTEX J TO AUTO EXERCISES 
4S: CMP Ri,#’V :SEE IF RIFY REQUESTED 
BNE BR NOT VERIFY 
MOVB #1, VERIFY :SET VERIFY MODE FLAS 
BR :PROCEED IN VERIFY MODE 
6S: JSR PC, ECOBAD *ECHO BAD INPUT 
_ BR 1§ :BR TO ASK FOR A OR E AGAIN 
-AUTO ALIGNMENT MODE 
AUTAL: 
TSTB VERIFY ;SEE_ IF AUTO VERIFY MODE 
BEG :BR IF NOT 
TYPE , AUTVRE :REPORT AUTO VERIFY MODE 


es ee eS 
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| 3R 4g 
bees 3S: TYPE AUTALN T 1 NT_ MESSAGE 
| 66 4§: JSR PC PR PKB i REPORE Fon PossieLe KBD INPUT 
| ee CLR SELECT ; NITIALIZE AUTO-SELECTE IVE INDICATOR 
MOV #377, ONLINE ; INIT. ONL VE ICATOR 
5634 #377, : INIT. opet INDICATOR 
MOV 8377 ; INITIALIZE T DRIVE INDICATOR 
6636 DRVLUP: TST INTC i SEE F ANY KBD INPUT 
BEQ bs : ok NO 
6638 MOVB SCRACH,P.DRVN(RS) ; DRIVE ‘ FOR POSSIBLE RECALIBRATE 
6639 CMPB d : iF (#2) TYPED 
BE4O :BR IF _NOT (32) 
p64 #377, SCRACH ; SEE IF ANY DRIVE SELECTED YET 
pes SRECAL.P.CMND(RSS ;SET CALIBRATE COMMAND 
6644 PC, ORVCAL ;RECAL TE ORI 
6645S 0263 to ;REST AUTO MODE 
6646 026374 INTCHR, #022 : ir (#R) TYPED 
6647 Oe6402 >BR I NOT CR) 
pb48 , SCRACH ; iF DRIVE SELECTED YET 
B650 BRECAL P.CMND(RSS ;SET I pea 
cess O26404 GIVEID RECA AID 
66 410 PC, ECOBAD ; CHO BRO 
6654 414 PC Eee eRD : F IBLE KBD INPUT 
5s 4e0 DRIVE : 9 THE Ive R 
pees 4 BhEDHOL ,A-AENL 5 ANE TIO. BE Be TURN ADDRESS 
6658 32 SET ON-LINE BIT FOR iis DRIVE 
6659 tVE, CHECK FOR’ NON-EXI T DRIVE (NED) INDICATION 
Peer yesh OP OD TNE RKOECR 
TYLST(R1),TYPFMT ;L RKO&-RKO7 FLAG 
dee $251 BRMC 
: IM+2 
6664 4 LC 
6665 4 -bSTC 
124) ° + +2 
666 i #6 + PRL M+6 
6668 #400; HOLD1 
6669 D3 
6670 #1 , HOLD4 
6671 TYPFMT’ ;IS AN RKO7 ? 
6672 Ocb 9S ;BRANCH IF NOT 
6673 #1450, c 
6674 #1455, PRMLIM+2 
6675 #1456, LC 
6676 #1456;LS5TC 
66 #1456; PROFLT+2 
66 #1456, PRMLIM+6 
ee 3 eo Be HObS 
6681 026630 #12025, HOLDY 
6682 026636 ;EXIT 
026640 PC, SCNDRV :CHECK THE SELECTED DRIVE 
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027150 


012163 


MACY11 


Boooo! 


a0S662 
oossoo 


oosseé 


oosSe6 


003046 


Cll 


Bl Mg 


Noe 
NOP 
Vv DRIVE,P. (RS 
Hove RIVE ,P. DRYYRE 
m6 
; MOV VE, RO 
; MOV -1,HOALI 
: IMP geTYPED 
: INTGON: LR 
MOV LSTCYL,LC 
JSR PC, DRVCAL 
99S: CMP #7'ORIVE 
BEQ 10% 
INC DRIVE 
CLC 
ROL RO 
BR INTG 
10S: MOV NEWON, R1 
; #eeeEE TO BE REMOVED ##eeeHE 
CMP NEWON, ONLI 
BNE 
IMP ORVLUP 


93S: 


, MOV #1,R 
;LOOP1: MOV 8197777, RO 
; *LOOP2: DEC R 
; 
; BNE peor 
: LOOP1 
iaainaia+;-eiaeial k-t + ta 
BI 
MOV NEWON, ONC INE 
TST RI 
; BNE 975 
DRVLUP 


CHND CRS) «Se Mo: 


ats°% PAGE 133 


;ERROR EXIT 


Bewa ae 


F Fe JUST ch T CHECKED DRIVE 7 


T 
EC 
IF 
F ig. 
T 
L 


I 


C 
BIT POINT 
SELECT NEXT DRIVE 


gue me i 


47 
o4 


;NUMBER OF 200 MILLI-SEC STALLS 


5 EAT ONE L CNSR IVE BI Its 
Se iF ANY DRIVE Yost WENT ON-LINE 


IMP 
978: 
Q DRVLUP -BR_IF DRIVE JUST WENT ONLINE 
:SERVICE THE DRIVE WHICH WAS JUST SELECT 
MOV #ERRHOL,A.ABNL ;RESTORE RROR HANDLER ADDRESS 
CLR IVE ?INITIALI I NO. 
MOV Ri,R3 ;COPY NEW L TED DRIVE BITS 
Vv #1;RO 5 INIT alt T POINTER 
12S: BIT RO’R3 ; F THIS IT IS 
NC rc; SONCREMENT DRIVE NO 
LC aN BR SORRY one ROTATE 
ROL RO ;SHIFT BIT POINTER 
BR Les : TRY AGAIN 
14S: BIC R3 ;CLEAR OUT THIS BIT 
BEQ 16 :BR IF ONY ONE DRIVE SELECTED 
; ERROR MORE THAN ONE DRIVE SeLEC ED SIMULTANEOUSLY 
TYPE , MULSEL REPORT ERROR 


T moi Mathes? Lye FOR THIS DEVICE 
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CZR6ND.P11 
£7) PRB 
cris erase 
EA cero 
747 027070 
SS csrare 
cre rire 


ae 
RNIN 


be = bs Ph bh ba he be 


NEVTOLR LOU ER 


RRRRS 
Ra 


000100 000000 


000001 





o0sS2e0 


MACY11 30A( 1052) 
RKO& HEAD ALIGNMENT AID 


BAC, #IE,RKCS1(Re) 


23S: 4 a is ss of Fe on VAT ERRUP STRT SPL 
¥ Ri secect boda se Ries Bai vE NORGE 

BIS DRE VE . 
MOVB R1,ORVSEL ‘fre OR R NTO output BUFFER 
Tee pase it Pen 
JSR . v ; Ns Ye PRITE PROT. 
MOVE 77a, 00 ; ORI poe INDICATOR 

; MOV #2" TRACK >SET T z2 
bee VE,P.ORVNCRS) 5 9ee PRA Re SY BRocRAN FLOW 

24S: TSTB VERIFY jSEG IF Pee JF ven mn 
AO EB SUNLOAD P. CMND(RS) 5 SE CONPAND 
a0v8 ae DRVCAL cMND CRE) : 0 OEttT OMMAND 

ess: ney , CAL ir Sri Be AORive 
BIT #5, HO, .AOLCRSS BOS ARE UNLODED YET 
BEQ $ BR hot YE 

32S: MOVB SSUBCLR,P.CMND(RS) ;SET SUBSYSTEM CLEAR COMMAND 
ISR DRVCAL GLEBR AT THE 5.8 
IMP oO SCAN DRIVES AGAIN 

PROCEED WITH SAME DRIVE 

26S: MOVB DRIVE, P.ORVN(RS) ASet DRIVE NO. 
COMB at ieee NEN “Se8or I TCATOR 

; BNE IVE SH ULD NLOADED 
TSTB VERIFY F AUT 
BNE 335 jSKIE, S18 STaRT REE V VERIFY 

nove % CAL P.CHND(RS) 5S J C oon js 

? Hey Ban Teoh aP re1 Sod a PRT. on Tits BRrv ia 

33S: CMP #2’ TRACK FOLAST ap Rack 

HIS 2g INTE "TF hat 

, CL CK :SET T 


10-JAN-78 


nove 


SRR AL 


scourinl WITH sfc, fie 
; PROCEED WITH Seer ont 


ScracP, 
i Rela 


Dll 
12:02 PAGE 134 


aston PO alts 


foes 


My pean ts 


IF SAME 


cet LAST ORE 


ARF RR AE Yicevenr on 
BCLR,P. P. CMND(RS) SET SUBSYSTEM CLEAR CORMAND 
RESTART AUTO ALIGNMENT 


;SEE IF STILL ALIGNING SAME DRIVE 
ORIVE 


SEQ 0133 








CZRENDO RK611/06 SS VERIF 2 MACY11 30A(10S2) 10-JAN-78 12:02 PAGE 135 SEQ 0134 
CZR6ND.P11 10-JAN-78 10:05 RKO& HEAD ALIGNMENT AID 
6796 BR 30S ;GO SEEK TO ALIGNMENT CYLINDER 
67 28S: INC TRACK : INCREMENT TRACK NUMBER 
6 000005 30S: MOVB TRACK, P. TRCK(RS)’:SET TRACK NO. 
67 ISR PC, ALNSEK ;SEEK IN INCREMENTS TO ALIGN. CYL 
6800 TYPE HE DP: ; TYPE HEADS POSITIONED MSG 
680 MOV tPACK,R1 :GET C NT TRACK NO 
eaoe BISB #’0,8) ; CONVERT TO ASCII 
6803 MOVE R1, HE :GET TRACK INTO MSG BUFFER 
6804 TYPE HEDSEL :TYPE "HEAD X SELECTED” 
INC TRACK : INCREMENT THE TRACK NUMBER 
5806 ooss2o CMP #3, TRACK tALL TRACK ARE DONE? 
BHI ?BRANCH IF NOT 
46S: JSR PC. PREPKB ?READ THE KEYBOARD 
47§: TST INTCHR SREAD ANY THING YET ? 
6810 BEQ 47s : H IF NO 
681 000032 CMPB INTCHR, #032 :2? 
681 BNE 48S :BRANCH IF NOT 
681 IMP AUTO 
6814 po0022 48s: CMPB INTCHR, #022 ;R ? 
pgis BNE 495 : 
16 IMP AUTO 
6817 000003 49S: CMPB INTCHR, #003 3c? 
6818 BNE 46S WAIT 
681 IMP AUTO :TO NEXT DRIVE 
p820 IMP DRVLUP 'GO BACK TO SCAN DRIVES AGAIN 
6822 
6823 -AUTO RANDOM SEEK EXERCISE ROUTINE 
PeSe 737 032310 RUTER: oan PC, INITSS TIALI YSTEM 
pase rhea 030576 JSR PC’ PREPKB t BREPA RE FeR°KEO I INPUT 
6827 O4401 013066 TYPE AUTEXR ?ASK FOR SHORT OR LONG SEEK EXERCISES 
b8e8 7 o0ssSe2 1S: TST tNTCHR i SEE IF ANY INPUT 
17 BEQ ?BR IF NO INPUT 
6830 0237 ooss22 oo0022 CMP INTCHR, #022 >SEE IF (¢tR) TYPED 
BNE jOR IF NOT (4#R) 
68 oi ge4512 IMP GIVEID ; TO RESTART ALIGNMENT AID 
65 S22 000032 2s: CMP INTCHR, #032 ;SEE IF (#2) TYPED 
6834 BNE 3s he ey NOT (¢ d 
pB35 144 IMP AUTO TO T 
6836 S22 000123 3S: CNP INTCHR, #°S iB 1 not i DESIRED 
6838 002734 005534 MOV SRNDSHT , SCRACH : E 
13 BR 5 : NETH XERCISES 
bB40 : oo0sS22 000114 4S: cne INTCHR, #°L i Saigon DESIRED 
pee 01575 016514 005534 MOV #RNDLNG, SCRACH p SEEK COUN 
4 BR 55 Felcec ot Tf TH CENCISES 
6844 0047. 030616 SS: JSR PC. ECOBAD Ens 
684S 7 BR AUTEX ;BR ASK AGAIN 
6846 oossoo 6S: CLR DRIVE :eeyT IVE = 0 
6847 “SELECT CURRENT DRIVE AND CHECK FOR NON-EXISTENT ORIVE INDICATION 
6848 027644 012737 030360 o0304% 45: MOV #NEDHOL,A.ABNL  ;SET NED OE RONBER RETURN ADDRESS 
6849 027652 113765 005500 o00000 MOVB DRIVE,P.DRVN(RS) ;SET ORIVE NUMBER 
6850 027660 013701 005500 MOV DRIVE: Ri THE DRIVE NUMBER 
6851 027664 116137 005620 003124 MOVB DTYLST(R1), TYPFMT *LOAD THE RKO&-RKO7 FLAG 
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MACY11 .JA(10S2) 10-JAN-78 12:02 PAGE 136 
RKO& HEAD ALIGNMENT AID 
MOV #624 ,LCM6 
MOV #631, PRMLIM+2 
MOV se32'LC 
MOV 8632, LSTCYL 
HOV see’ bme 
MOV sg06’ HOF 1 
MOV 82s HOLD3 - 
a s100es. ™ ;IS AN RKO7 ? 
BEQ 95 BRANCH IF NOT 
MOV #14S50,LCM6 
my Hager tt? 
0 MOV #14 troy 
710 MOV #1456, PROFLT+2 
742 MOV W1ase, IM+6 
2 MOV #1000; HOLD1 
4 MOV #2025 HOLDS 
6 MOV #12025, HOL 
9S: NOP ;EXIT 
JSR PC, SCNDRV 
18S 
NOP 
NOP 
0 MOVB s37-0heto P. CMND(RS) SET SELECT DRIVE COMMAND 
005530 MOV Won ; INITIALIZE ON-LINE INDICATOR 
JSR ‘SELECT THIS DRIVE 
003046 MOV at ; STORE DRIVER RETURN ADDRESS 
005530 CMP won ; ir NOICATION ON THIS DRIVE 
BNE I , TO SKIP THIS DRIVE 
; CHECK ORIVE FOR 1eBy WRITE proregt 
PC, CHKDR HECK THIS OR 
AUTEX RE TURN ASBRESS FOR CHKDRV 
; PROCEED, WITH a K EXERCISES on + 5 ve 
BIS Aloe ' RT TO $i 
MOVB ree ;GET R INTO OUTPUT BUFFER 
TYPE : YEE e RCISING DRIVE X 
000001 MOVE ieee . CMND (RS) age EK COMMAND 
MOV SCRACH, RO « 
10S: ISR PC, PREPK :PREPARE FOR POSSIBLE KBD INPUT 
JSR PC’R SELECT RANDOM YLINOER ADDRESS 
ooc002 MOV cyl P. CYLN(RSS CYLINDER ADDRESS 
JSR PC. ORVCAL soe EK 
TST INTCHR En F ANY KBD INPUT 
BEQ 16S IF _NO I 
o00022 CNP INTCHR, #022 1 IFC ct d TYPED 
BNE 12$ edt fe R) 
000001 MOVB #RECAL .P. crND CRS eT pecaL IeRaTe COMMAND 
ISR PC, ORVCAL AL IBRAT 
IMP GIVEID Reco TO RESTART ALIGNMENT AID 
000032 12S: CMP INTCHR, #032 ite IF (#2) TYPED 
BNE IF NOT (#2) 
000001 MOVB #RECAL,P.CMND(RS} ;SET RECALIBRATE COMMAND 


SEQ 0135 
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001310 
026144 


S 010000 


044200 


000001 
oossoo 


5 005530 


7 046356 


150502 
177600 
00017e 
000141 
05522 

000003 


013246 


MACY11 


000001 


oossoo 


150574 


000020 


30A(10S2) 10-JAN-78 12:02 PAGE 137 
RKO& HEAD ALIGNMENT AI 
ISR PC, DRVCAL ;RECALIBRATE DRIVE 
IMP aut ; JUMP T RESTART AUTO MODE 
14S: ISR COBAD CHO Bao 
ISR Pe! PREPKB Decne KBD INPUT AGAIN 
16S: DEC RO. 
BNE 10s iBR IF No H, ontiis., DRIVE 
MOVB #RECAL,P.CMND(RSS T 
JSR PC. DRVCAL Siok! RecAL TBR 
18$: INC DRIVE : INCREMENT Riven FUMBER 
CMP #10, DRIVE :SEE IF WITH ALL DRIVES 
BEQ 395 
99S ied wes 
; BNE F MORE DRIVES TO. EXERCISE YET 
g *g1T6, asTKS ue  KOQ IN INTERR UPT 
Y TE 50 AUTO-EXERCISES 
IMP AaB RESTART. RUTO MO 
;THIS IS THE RETURN URN FROM THE 
; WHICH IS USED RHEN D INDICATION or EXBE TED (AND VALID). 
: (NED = NON-EXISTENT DRIVE) 
NEDHDL: BIT #NED,P.CS2(RS) ;SEE IF NED ON DRIVE SELECT 
one 1s (BR IE NED SE THER ERROR 
1S: MOV BAR P) $20 HANOLE 
MOV R1,-(S5P) 
Vv #1,RO foie a POINTER 
LR R1 
2s: cHre Ri, DRIVE IF R = CURRENT DRIVE NUMBER 
INC Ri :BR NT COUN 
ASL RO sSUIF Tait SYNTER 
3S: BIC RO, NEWON BIT FOR THIS ORIVE 
MOV (SP)+,R1 icLEAR 0 RAONLINE 
MOV (SP)+'RO 
IMP RETNML tent NORMAL RETURN 
: pouguaessouasuaaueeuereerste titan ao 
8 BTTL KBOHDL - TTY KEYBOARD INTE 
er irr eee ner Teer REPEL Pir et err erT TP hPer err eer err etter! 
sas MOV zg5R} Rl ON STACK 
MOV Bite READ A CHAR FROM KBD BUFFER 
BIC ai7reb6, Ri T UNUSED 
CMPB #172" ores F LOWER CASE TYPED 
BGT Bis" :BR IF NOT 
CMPB RL #141 
BLT 20$ ;BR IF 
BIC “BITS RL MO TPPER CASE 
20S: MOV aos at” ay, Pane CHARACTER 
CMPB EE C) TYPED 
BNE (40) 
TYPE eRNTRLC ECHO Py 3} 


SEQ 0136 
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ESRENBs Pi “78-Jan-96 1070S 


b263 777 000100 


000032 
013253 
ooo0ee 
013260 
000007 
013272 


000751 
£373 Gabeed 104451 opssee 
00074 


150344 
o0SS2e 
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Hil 
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BOHDL - Fy KEYBOARD INTERRUPT HANDLER 


1S: BIC egITe, aSTKS : CLEGR K KeD INTERRUPT ENABLE BIT 
MOV (SP )+ STORE 
RTI RETURN 
2S: CMPB one, ft :SEE IF (#2) TYPED 
BNE :BR IF NOT (2) 
TYPE CNTRLZ ; CHO (#2) 
3S: ie #022, R1 : eRe (#R) TYPED : 
BNE 4 ;BR IF NOT (tR) 
YPE CNTRLR :ECHO (#R) 
BR RETURN 
4S: CHEB #007, R1 !SEE IF (#G) TYPED 
NE 5 ; IF NOT (tG) 
TYPE CNTRLG *ECHO (4G) 
BR : RETURN 
SS: TYPE NTCHR * ECHO INPUT 
TY CRLF !00 <CR> AND <LF> 
BR 3 } RETURN 


j ARERNEASEESERNEMEREPARE FOR KEYBOARD INPUT 


’SBTTL INPU 
;¥THIS S OUTINE, THE KEYBOARD BUFFER AND THE 
*xDONE AND CLEARS THE TTY INTERRUPT INPUT WORD 
j HINTCHR tn PREPARATION FOR NEW TTY INPUT. IT ALSO 

NABLES KBD INTERR 
’ 
: SR PREPKB 
ie Re Riccio scene Be ett 


PREPKB: CLR aSTKB cLERR Kg BOE UF wor AND DONE BIT 
CLR INTCHR ICL AR_T ORD 
BIS #B1T6,aSTKS os KBD INTERRUPT 
RTS PC RETURN 


+ 3 3 9 HE ME HE HE HE HE HE HE HEE EH HE HE HE EEE ER RREE ELAR RE RE RER 


aS: een ree te He HORROR Ee 


: #REAS ON, FOL ONED BY A 2). THEN, A <C 
;* 


;* PC, ECOBAD 
aed cE eit Wii sarbie 


scoene: Ma 3 , wee HY Pe BAD HARACTER 
Aye 6 QUES ; ?> AND <CR>, <LF> 
;R 


4 Sepugunetousgversvseenrern ee 
tSTZMEM - SIZE MEMORY, SET LIMITS 
!¥THIS SUBROUTINE SIZES MEMORY BY CALLING SUBROUTINE S$SIZE, AND 


SEG 0137 


ceneree. RK611/06 SS VERIF 2 
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7020 

e 

ousa B30 30 04407 
70es 12737 
ree tee are 
res Hee 
7 B3peeo poss, 
7033 13 
70s O30e7e Gob0b 
503? Osurce Ook Id 
A B30704  BOELBT 
re Ss BBLS 
sous eat 00 


pn 
ee 
we 


7’ 7 

res Hae Be 
7048 7 006101 
7049 7 006100 
7050 weates 
7051 0061 
Fes fre Bete 
pa" z Oaulee 
He ities Hee 
7057 030762 pont 
7088 030766 012746 
70539 03077e poiess 
7060 776 7 
Pek Baie tet 
aa 101 ib4410 
7064 031014 020 
7065 

7066 

7067 

7068 

70693 

7070 

7071 

707e 

7073 

7074 031016 O16646 
7075S 031022 104403 


godegG 


060176 


00SS74 
005576 


oo0000e 
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12:02 PAGE 139 


COBAD - ECHO BAD TTY INPUT 
;*#IT USES THE VALUES RETURNED, TO ey Ma. LIMITS ON PARAMETER 


:*IT ALSO TYPES “LAST PHYS nen ADR = XXX" (LEAD ZEROS SUpRS* D), 
:#AND SETS THE FL F 22-BIt ADDRESSES ARE USED 770). 
gt RR BD, sO a a 
&t2mEM: SA ;SAVE RO-RS 
057732 MOV #200, $KT11 >SET MEM NGT KEY FOR SSIZE 
JSR PC, $SIZE :SIZE ME 
TST $KT11 : SEE IF MEM MGT PRESENT 
BMI tS :BR_IF_MEM RESENT 
005574 MOV S$LSTAD, MAHILM ; T MEM LIMIT LO BITS 
CLR MAHILM M42 LEAR MEM LIMIT HI girs 
BR 16 ?GO TYPE LAST ADDRESS 
-SHIFT SAF LEFT 6, AND PUT IN RI-RO 
85: MOV S{STBK RO ;LO BITS 
CLR Ri ‘HI BITS 
MOV #6, R2 :SET LOOP COUNT = 6 
12S: CLC :ROTATE LOOP 
ROL RO 
ROL R1 
DEC Re 
BNE 125 
;ADD VIRTUAL ADDRESS TO SHIFTED SAF TO GET PHYSICAL ADDRESS 
ADD SLSTAD, RO ;ADD LO BITS 
ADC RI :HI BITS 
MOV RO, MAHIL :SET LO BITS OF MEM LIMIT 
nov R1, MAHILM+2 :SET HI BITS OF MEM LIMIT 
ROL RO 
ROL Ri 
ROL RO 
ROL R1 
ROL RO 
ROL Ri 
CMP Rl, #37 
BLO 16% 
003143 MOVB #1, UBMPRS ;SET “UNIBUS MAP PRESENT” FLAG 
-TYPE “LAST PHYS MEM ADR = XXXXXKAXE 
les: TYPE LSTMEM TYPE “LAST PHYS MEM ADR = 
MOV BMAHILM,-(SP) PUT POINTER ON ST 
JSR PC, a#$DB20 : CONVERT BINARY To OCTAL ASCII 
JSR PC’ a#SSUPRS i Tee ”XXXXXXX 
TYPE , SCRLF TYPE <CR>, te 
TYPE * SCRLF 
RESREG amstont RO-RS 
RTS PC : RETURN 
, (eee eee eee eee eee e re otal Oct MO, ON TTY ka 
tk GE - INPUT A SIX-DIGIT OCTAL NO. ON TTY KBD 
RENTER™ SUBROUTINE WITH OLD PARAMETER VALUE ON STACK. SUBROUTINE 
su TYPES OLD D VALUE, AND INPUTS NEW VALUE, RETURNING NEW VALUE ON 


f+ eR 
bt TPRM: MoV 
TYPOS 


RERRRRKLL ARAL A ARREARS LER AAAHRRAAK REAR RARELE EE 


2(SP),-(SP) sGET O40 VALUE 
:T YPE IT 


SEQ 0138 
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a ee ee ee ee ee ee ee ee ee ee ee ee 
BRON ON LOM! ODM ITU LUOM-ODDITR LOLS 


NO. P 10-JAN-78 10:05 
sor? Oaines 
ates p31 852 007475 
707 0310 034034 
7 03103 
| 7081 O31 
by 2G 1042 
7 1 
7084 1 
rose Bat coocoe 
708 1 
- ibes porsi4 
{ 7 iad 0010 
7091 1074 
10 2746 o0S264 
7 11 737 054500 
7094 11 1060 
eae HG BEEP covese 
| Fee BHR BRP conoc 
| 708 031124 nied 
? 
? 
? 
te : 
. > 
? 
7 
- 
7 031126 022737 000176 
7 031134 001010 
7 031136 013746 oo0i76 
? 031142 104401 007466 
7 031146 004737 031016 
? 031152 012637 000176 
2 031156 000207 
7 
? 
? 
7 
7 
? 
7 
7 
? 
7 
7 
7 
7 
7 
| 
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MACY11 30A(10S2) _10-JAN-78 12:02 PAGE 140 


001140 


ECOBAD - ECHO BAD TTY INPUT 


.BYTE 6 ;S1X DIGITS 
;BYIE Teen ; SUPPRESS LEADING, ZEROS 
JSR Pc, ROCHRS ne NEW VALUE FROM KBD 
a ($5) RETURN ADDRESS 
75 :(4U) OR ERROR RETURN ADDRESS 
TST RO gst! IF ANY CHARS TYPED 
NE 4§ :BR IF YES 
RTS PC ?RETURN - OLD VALUE UNCHANGED 
4$: cne RO, #6 jSEE IF > 6 CHARS TYPED 
6S: TYPE  BUFED :ECHO BAD RPT 
7S: SUB bio, (SP) sE TX ERROR RETURN PC 
gS: MOV SRUEEO -(SP) eon OVER ATER T TO CHARS ON STACK 
JGR OCTBIN retuRn GIT TO BINARY 
MOV faves RO INARY VALUE 
ist $HI0cT a BITS ARE O 
mov RO, 2(SP) ‘PUT Ne fa O VALUE ON STACK 


5 5 Se SE EAE SE AE JE 6 SE a a a 9 a a a a a a HE 
SBTTL GT Sune - OPEN SOFTWARE Sul ren S OF THE. SFT a As ROO TE TSR TON 
*#THIS OUTINE ALLOWS THE CONTE Suit CH 
j MREGI ER TO BE IFIED BY af v ineU HE, SUBROUTINE TYP YPES 
= XXXXXX FoR A OCTAL VALUE 


SOF UP TO SIX DIGITS TO “be ty 
RN | 


&tSwrc: CMP BSHREG, SWR ;SE I SOFTWARE SWR SELECTED 
SOY G,-(SP) : VALUE ON STACK 
TYPE HTVBE PSM = Us 
JSR PC, GETPRM ; TYP Ger udeH SWREG VALUE 
MOV (SP)+, SWREG j STORE ay 

6S: RTS PC > RETURN 


Leeann eee eee eter MEMORY MARGEFENT REGISTERS 
 LINITMM ~ SUT Re 


tx THIS “intr MCIPOR’S AND Ki FOR 

t SCONTIGUOUS 4K P maha NG AT PHYSI AL ae: 
;*#KIPAR7 IS Ny WITH nat PAGE. 
; ¥2e-BIT Me “PRESENT 


j xBUT men fi URNED ott IN ae NABLED, Th HOWEVER, 
> 


 LEREKERKERLRRRR KERR RARER RE RRRRRE RRA RRRRA RE RRRRHERRKRRRRRARKRARHAAE 
thITMM: SAVREG ;SAVE RO-RS 
CLR :INIT FOR PAR LOADING 


oe Nov TOR 
TRAPS ARE ENABLED. 


SEQ 0139 


CZR6ND0 RK611/06 SS VERIF 2 MACY11 30A(1052) 10-JAN-78 12:02 PAGE 141 
CZR6ND.P11 10-JAN-78 10:05 GTSWRG - OPEN SOFTWARE SWITCH REGISTER FOR MODIFICATION 
7132 031164 012702 172340 MOV #KIPARO, R2 ;ADOR OF FIRST PAR 
3133 031170 bie? 900019 MOV #8. :LOAD 8 PAR’S AND 8 POR’S 
e134 1174 167 ¢ 177740 4S: nov 877408 -40(R2) IDR = Wk UP, READ/URITE 
7136 §31586 proiEe 000200 ADD #200,R1 ;UPDATE FOR NEXT PAR 
sis B3IEL8 Be PSGPT ORT “BOt, SPH Conoen 
$138 1214 12 177600 MOV #177600,-(R2)  ;SET uP KE 7 FOR 1/0 PAGE 
3140 O31¢ 1057 003143 Tore U MPRS iS ETF ee er! ADDRESSES 
7142 O3le26 012737 OO0060 172516 MOV #60, J8SR3 !ENABLE 22-BIT MODE,AND UNIBUS MAP 
7143 O31e34 012737 601000 177572 10S: MOV #BItS, a#SRO ENABLE KTal TRAPS 
7144 O31e42 104410 RESREG ,RESTORE RO- 
oius 031244 000207 PC ? RETURN 
7147 
7148 
oi33 tieeevics MOUTITE fae Tan fal eee 
7151 : $ REAR R RRR K RAR AK KKSK RARE RRR AKLA AH AAAA RARE RASA AKARALAAAAE 


gies 031246 
sted BRIESs 
71SS5 Q31e66 
7156 031274 


Kenenge. eee SS VERIF 2 
CZR6ND.P 


10-JAN-78 10:05 
004737 043720 


012737 031320 


Lil 


MACY11 spa 1GRe) 10-JAN-78 12:0 


000004 


if PAGE 142 
TSWRG - OPEN SOFTWARE SWITCH REGISTER FOR MODIFICATION 


KTERHD: JSR C, REPSUP ;GATHER STATUS FOR PRINTOUT 
MOV Seek, $R cs T SRO 
MOV #5R1’ SREGS IGET SRi 


MOV aaSRe, SREG7 ?GET SRe 
MOV #8$, JKERRVEC :SET TIME-OUT VECTOR 


SEG 0141 


CZR6ND0 RK611/06 SS VERIF 2 
CZR6ND.P11 10-JAN-78 10:05 


4 4 031302 012737 000340 
031310 013737 172516 


$183 GHiae GORGE 


MACY11 30A( 1052) 
GTSW 


000006 
001202 


RG - 


Mil 


10-JAN-78 12:02 


PAGE 143 
OPEN SOFTWARE SWITCH REGISTER FOR MODIFICATION 


MOV 
MOV 


HP 


#PR7, IKERRVEC+2 
ae , $REGIO 


)+, (SP)+ 


;GET SR3 


;CLEAN UP STACK 


SEQ 0142 


Nit 


CZRENDO RK611/06 SS VERIF 2 MACY1L1 30A( 1052) 10-JAN-78 12:02 PAGE 1 SEQ 0143 
CZR6OND.P11 10-JAN-78 10:05 GTSWRG - OPEN SOFTWARE SWITCH REGISTER FOR MODIFICATION 
7161 031322 112737 000003 065632 MOVB 83 DF 30+18. ;FIX PRINTOUT FOR NO SR3 
7162 031330 105037 064272 CLRB DH?704+11. 
7163 031334 104121 10S: ERROR 1el ;KT11_ FAILURE 
rate 031336 000137 046150 IMP HLTPRG :ABORT !!! 
oie? 
S169 tEENDCGR - ENABLE MEMORY CSR’S FOR PARITY ERRORS, 
7170 031342 010146 Ae cena FETT aT I Ngnemmemmamagees eemnetantstn es 
7172 031344 013746 oD0004 MOV DSERRVEC,-(SP) SAVE OLD VECTORS 
7173 031350 013746 000006 MOV SERRVECH2, -(SP) 
7174 031354 o16737 031376 ooo004 MOV #8$ S#ERRVEC i$ T_TIME-OUT VECTOR 
7175 1362 012701 172100 MOV #MEMCSR, R1 S OF MEMORY CSR'S 
7176 031366 005011 4S: CLR (R1) OPRO THIS CSR 
2127 B31 20 lerit 000001 MOV #BITO, (RL) ?SET ENABLE IN THIS CSR 
5128 1374 2626 8S: CMP (SP)+, (SP)+ CLEAN UP THE STACK 
7180 1800 Obe701 poo0002 10$: ADD #2,R1 cea NT TO NEXT CSR ADRS 
718) 1408 O1 172140 CNP Rl, S#MEMCSR+4O ise IF D DONE CHECKING YET 
7183 O3141l2 esta ooo006 MOV (SP) +, D¥ERRVECHE ; ORS TORE. OLD VECTORS 
7184 031416 012637 O00004 MOV (SP)+) J#ERRVEC 
7185 O31422 012601 MOV (SP)+/R1 ; RESTORE R1 
716 031424 000207 RTS PC RETURN 
5189 
oie tpt yICE ROUTING TOR MEN PARITY ERRORS 
ies 031426 010146 TO ge aman WET painmmagars "aS eaganmnnanggnr sess atte 
7194 031430 013746 oo0004 MOV SHERRVEC -(SP) iSAVE OL OLD VECTORS 
7195 031434 013746 o00006 MOV RRVEC+2,-(SP)’ 
7196 031440 737 043720 JSR PC, RE iGeTEE BF STATUS FOR PRINTOUT 
rise sives Bisa, erwee SOhiTs mY Ge barkavee _ /SET Foo" vECTOR 
7199 p3ide5 515539 340 oo00006 MOV any + 
7200 ;HANDLE 11/70 MEMORY ITY OR 
7201 O31466 0137 177740 001176 MOV REGS ;LOW ERROR ADRS REG 
7e0e O31474 0137 7 177742 001200 MOV ae G HI ERROR ADRS REG 
7203 1502 013737 177744 001202 MOV Ven 10 ;MEMORY SYSTEM RE 
7204 031510 018737 064326 065654 MOV Beaieie. ?FIX ERROR MSG FOR 11/70 
7205 031516 112737 rele] MOVB #4 Hae eS bal 
7206 031524 O41ge ERROR 122 ;11770_MEM PARITY ERROR 
7207 0 1526 00573 001200 Tst shea? jSEE IF BAD MEMORY IS IN PROGRAM AREA 
7308 1334 c 227 001176 073660 cn SREGE, , WRUBLF +6006, 5S E IF BAD MEM IS IN PROG. AREA 
7514 O31544 737 003144 4S: Tsté MEMABT i SEE IF ABORT DESIRED 
7. 15 p3ieee 195 046150 JMP HL TPRG RABORT 11! 
7214 031556 012637 JuO0006 6S: MOV (SP)+, @WERRVEC+2 ; RESTORE T.O0. VECTOR 
7215 031562 O12637 O00004 MOV (SP)+;) J#ERRVEC 
7216 O31566 O12601 MOV (SP)+°R1 ;RESTORE R1 : 


CZR6ND0 RK611/06 SS 
CZR6ND.P11 10-JAN- 


i SBIEPS SRSzEE 
a n 


ie 


1 
ee 
46 





roo 
fou 
_ 
Oo 
F: 
Oo 
N 


031 
Bat 
1 
1660 
1664 
ny 179 010104 
fess Gales Bee 
esl 031708 0ei00 
ese 031702 OpeIO1 
72eS4% 0317 006100 
7eSS 03171 306001 
7 03171 Aed3 
esr OSI71G 108/37 
Swarm om 
7ebl1 03174 pis? 1 
ees Baltes 1hash 
7a Balrag me 
gpe 1746 Bosra! 
1730 042765 
268 1 142765 
7262 O31764 104410 
7270 031766 000207 
7271 
7272 


RIF 2 





10:05 
031342 


031630 ooo004 
1 «10s 


001176 


ooo00e 
172140 


11 


017777 
O00S606 


160000 000010 
000003 000007 


MACY11 30A(10S2 
GTSWR 


- HANDLE 
los: 


10-JAN-78 12 
G - OPEN SOFTWARE SWITCH 


Ble 
:02 14S 
GISTER FOR MODIFICATION 


J 8 PC, ENBCSR ;G0_ CLEAR AND ENABLE CSR’S 
ALL OTHER MEMORY PARITY ERRORS SNON= 11770) 
C (SP)+. (SP)+ ; CLEAN TACK 
MOV #14$, JSERRVEC SE T VECTOR 
MOV steMesSR RL ;GET FIRST CSR ADDRESS 
MOV (R1), SREG ; CHECK FOR A MEMORY CSR 
BPL 16 :BR IF NO ERROR SET HERE 
MOV R1, SREGS *GET CSR $$ 
ERROR ige ; Y TY ERROR (NON-11/70) 
BR :GO SEE IF T 
CMP (SP)+, (SP)+ :CLEAN UP STAC 
ADD #2,R1 :INCR_ Rl TO POINT TO NEXT CSR 
Cc R1’#MEMCSR+40 :SEE IF DONE CHECKING 
BLO 126 BR IF NOT 
6$ RETURN 


5p ERMA EE REEL ERE GREE ERASE RRR E ERE EE ER RRE EERE EE ERLE EERE ES 


OCATION 


!#PREPAR - PREPARE MEM MGT FOR REL 
;HTHIS SUBROUTINE CALLS INITMM, AND THEN SETS UP CONSTANT 


PAR: 


; PREPARE aan 2e- 


4S: 


JSR 


TSTB 


Vv 
OV 


MOV 


;#FOR KIPAR6S IN SAVPAR, AND 
;*IF PRESEN 


HE UNIBUS MAP REGISTERS, 


ETT rititiiri tii tit tii ttt iiiiititititiititiititiiiiceriiiriesy 


PC, INITMM INI NEN MGT REGISTERS 
PMA, RO ?LO BITS OF MA 
#17777,RO :MASK FOR BITS 13-15 
priate, Ri ‘HI BITS MA 
RO, RS :SAVE THESE BITS 

s 
RO ;GET MA BITS 13-21 INTO R1 BITS 7-15 
RO 
Ri 
R1 
RT 
R1, SAVPAR sCONSTANT FOR LOADING PARG LATER 
UBMPRS >SEE IF UNIBUS MAP ENABLED 
95 :BR IF NOT (NO UNIBUS MAPPING) 
BIT ADDRESSING -’ LOAD UNIBUS MAP REGISTERS 
#MAPLOO, ;STARTING ADDR OF MAP REGISTERS 
#31.,R1 *SET REGISTER COUNTER 
R3, (RO)+ ;LOAD A MAP REGISTER 
RY, (RO)+ 
#26000, R3 ;ADD 4K WORDS 
R1,4S -LOOP UNTIL 31(DEC) ARE LOADED 
#160000,P.BALO(RS) ;CLEAR BA BITS 13-17 
#3,P.BAHICRS) 


;RESTORE RO-RS 
PC ; RETURN 


| prt yA RK611/06 SS VERIF 2 
CZR6ND.P11 10-JAN-78 10:05 


ae 
on 


1 
‘ ‘ H 7 
D3 0be poi ses 
32064 1 


. 


NNNNNNNNNANN 


WW WWW 


10 
i 
13 
ze 
zie 
7317 
zis 
ce} 
732 
es 


9355 001375 

7365 Resoag 006000 
OU 

? 702 

5359 O32 03 006000 


DFVORLVOR Lear en 
ES 


be 


Ww 
fu 
uw 
£ 





le 


MACY11 30A(10S2) 10-JAN-78 


ooss40 
157776 


12:02 PAGE 146 
GTSWRG - OPEN SOFTWARE SWITCH REGISTER FOR MODIFICATION 


ptennnsssonzssscassarensasenssteens uk eo stoe ire 
AND STORE IT 


ik NO - FIND STARTING ADR OF XXDP LOADER , 

j [AUeeDenneduensensexseysenannaeneereeneenernenrensersensessetyes 
bea &S SORT IF HI a! 25 fre oe — 

4S: nov #160000,XXDPAD ;START OF 28K IS END OF xxDP 

6S: CHP MAHILM, #157776 i$ Oi yaa LIMIT > OR = 157776 
MOV ILM, XXDPAD ;H “tier IS END OF XxxDP 

BS CUB seb00 XXDPAD at TE BOT ART OF XXDP 

: RT 7 Pigy 


OTE Thr 100? LOPOER IN MT EMORY 
i eTHIS DTYNe Moves T R, WHICH Sieg: AT THE 


just N 

Bott outaet TP CORR TED xXDe LOADER FROM THE ADDRESS 

+2, BACK TO LOCATION XXDPAD (ITS ORIGINAL 

Deore oS). sSSUUSESESUSGERSRUEUSUSSSESSEREREEEEEUEEEEEREENERENES 
* @Lr a + BE yE RDICATOR TO SAVE XxDP 


BR 1 ’ 
GETXDP: SAVREG ; 
CL XOVLAD t@L OE OVERLAID INDICATOR 
ag" te ie 1B re SAVED 
ori: RY Ein FaRE BPMTIR TOAST 28S cn 
nov al Re ; T T SET 38 nove 1 36 (DEC) ligRos 
MOV XOPSAV RO >GET Save AOR PO Lo Bite 
ney wi oT eT TS MEM MGT PRESENT 
BMI XDP3 ; toes Ne 
Be ROPY i aEe va en weit To ct xxpe oe OP 
6S: MOV (R3)+, (RO)+ : Bove A 
DEC Re >SEE IF 1536 (DEC) WORDS YET 
BNE 6$ ?BR IF NO 
XDP2: RESREG . j RESTORE RO-RS 
XDP4: ADD #6000, RO IBOINT T TO ENB 8F SAVE AR 
AD #6000 R3 :POINT TO OF XXDP PeBDER AREA 
8S: MOV -(RO);-(R3) ?GET A WORD 
DEC Re :SEE IF 1536(DEC) WORDS YET 


8 de 
POBPSAV M +2. A Se oT AL "OF Teeet BEE) RORDS ARE MOVED. 


SEQ 0145S 





CZRENDO RK611/06 $5 VERIF 2 
CZR6ND.P11 | 10-JAN-78 10:05 
7329 001375 
7330 000766 
a: ae 031160 
$33¢ 006 100 
a 101 
> BER 
> 106001 
7340 10137 172354 
en Bet eae 
5 1 
5 t 19 
| 7344 005704 
| eh oS 177572 
| 7349 3717872 
ee BIEIGS vere 
7384 Oitess tre 
7386 Barbe ecco 
| 532g Bes394 B5R058 
7369 005302 
7 001347 
Z 500713 
7363 
> 364 
7365 
7366 
> 367 
7368 
7369 
7370 
5371 
7373 
7373 
5370 10 012737 
pare Dasaie Bisa? BNerse 
7377 o127 
ie Gases Sle 
Ae He ee Ge 
7381 344 112765 
53e5 passee Sass Bdeed 
7384 032364 113737 OOSS00 


| 
Ea Roe Gtite Se e 


172384 


Dl 


MACYL1 30A(1052) 10-JAN-78 12:02 PAGE 1 SEQ 0146 
GTSWRG - Sets beg: SWITCH REGISTER FOR MODIFICATION 
;BR IF NOT YET 
- a - wee, :GO EXIT 
iseyt FER Ber Tee ; INIT MEM MGT REGISTERS 
ROL RO :GET ADR BITS 13-21 INTO Ri BITS 7-15 
ROL RO 
ROL Rl 
RORB RY 
nov Ri aK IPARG ; SET UP PARE . 
aie re Pex be RPS, AEP ERENCE PAR6 
16S: TST R4 ; ;SEE_IF WANT TO SAVE OR GET XxDP 
BNE (FS - :BR IF oheNT TO GET XxDP 
INC as RD ‘7Oyh 8 ON WOERORY MANAGEMENT 
DEC gaSRO ;TURN OFF MEMORY MANAGEMENT 
18¢: INC d8SRO ™ TUR ON MORY MANAGEMENT 
Bec aesna" URN OFF MEMORY MANAGEMENT 
20S: r #81713,R1 a, JF OVERFLOW TO PAGE 7 
T13,R AGAIN 
Bs $e00 ab IPARE iBT DOGE By Set 
225: DEC Re : SEE IF 1536 WORDS YET 
1BBe ‘Be 46 (wets 
5 = REGRERRRREE REA RRR RRR RRR RREE RE RRRRRRRRRRRRR RRR R ARERR A KKH KHE 
*SBTTL INITSS - INITIALIZE SUBSYSTEM 
jaTHts SUBROUTINE INITIALIZES THE DRIVER AND ITS PARAMETERS 
DOES A SUBSYSTEM CLEAR. 
is * USES - Re2,RS 


bo3049 


oo0c01 


oo0000 
002714 


# JSR PC, INITSS 

2 HR HGH HEHEHE HEHHHIHHEBHHHBHHEHBHHHBHEHBH HBB HEBE HEEB HEEB BBE 

INITSS: MOV RR A. ABNL T UP penon RROR URN ADDRESS 
HOV SERRERE” {SET Up NORMAL RETURN ADORESS 


Hoy. ARRAS £3 e} Sooreas & Peaiecies abet 


JSR ¢ CLRERM + CER DRIVER NPUTS PGR TERS 
r LR,P.CMNO(RS) ;SET YSTEM CLEAR COMMAND 


HOv8 a ee ee ERT SRIVE No. 
MOVE DRIVE’ PARM SET DRIVE NO. IN ALTERNATE P.B. 


_ SZRENDO RK611/06 SS VERIF 2 MACY11 30A(10S2) 10-JAN-78 12: PAGE 148 SEQ 0147 
| CZRGND.P11 10-JAN-78 10:05 INITSS - INITIALIZE SUBSYSTEM 

7385 032372 113765 003125 900007 MOVB FORMAT,P.CSIH(RS) ;SET CURRENT DRIVE FORMAT 

7386 030400 153765 003124 000007 BISB TYPFMT,P.CS1H(RS) -SET DRV TYP 

7387 032406 000207 RTS ; SUBROUTINE EXIT 

5380 

o33h g SST -CLRPRN ~ CLEAR DRIVER INPUT PARAMETERS |= °S "00S" 

7393 ; #THIS OUT INE ZERO T PIRST | 14 BYTES IN THE DRIVER 

7334 r SPHRAMETER. BL S IN RS). 

338 ORC alle ee 8 wale Acai en 

7398 032410 oO1004% pena MOV RO, -(SP) ; RO 

7399 p35uie 010546 MOV RS,-(5P) i SVE RS 

7400 032414 010500 MOV RS, RO :GET PARAMETER BLOCK ADDRESS 

7401 O3e416 062705 000016 ADD #P:CS1, j COMPUTE LIMIT ADDRESS 

ops 55 1S: GRE ORR ERE RON YET METER BLOCK 

a p3suSe wavered 1$’ BR if NOT DONE YET 

7405 30 012605 MOV (SP)+,RS > RESTORE RS 

7408 32 012600 MO (SP)+’RO j RESTORE R 

7407 032434 000207 RTS PC ; 

7408 

a 4 pergneeanener nn min ta she 

7413 $877 SUBROUTINE ae iE SELECTED, DRIVE TO INSURE 

7414 HE OR 15 ON-LINE ADY, NOT WRITE-LOCKED, 

7415 Han (Noy Lonbe UTTH aA ALIGNMENT CARTRIDGE, Ip ANY 

7416 ;#OF THE T ARE T IATE 

7417 ; SAGE, 8 T : I i SABLED, AND 

7418 ;#A_ RET ; T TED IMMEDIATELY 

7419 : AFTER THE ¢ 9 Sonpav. THe STED DR VE NO. 

7420 : MUS TO THE “DRIVE” . 

7421 XALS F RUNNING FROM O06 IS LOAD MEDIUM, 

22 : DRIVE = BE REJ cre USE. 

7423 ?% CALL - Vv 

gis? :* OR RETURN ADDRESS> 

oss H EAE AOL EAE AGE ARR ARABI 

74 36 003124 SCNDRV: CLRB TYPFMT RKO& TO START 

7429 O3e44e 004737 032310 JSR PC, INITSS TnFT Tet 1Z ORIVER REND CLEAR SUBSYSTEM 

7430 O3e446 113765 005500 ooo0000 MOVB DRIVE .P _——— T DRI 

743 S54 0427 190 BIC aie cA} ie BKOG INTERRUPT 

TH 1137 5 000010 MOVB DRIVE .RKCS2(R2) ; VE NO RKCS2 

74 1057 124 TSTB TYPFMT ; SEE IF RKO? — 

7434 00 BNE S$ ?BR_IF YES 

eae 74 Ol2712 oo0001 HOV #GO, (R2) tELSE SET GO BIT IN CS1 FOR RKO6 

7437 eae 002001 S$: MOV #<CDT!GO>, (R2) 

7438 0325 005037 005534 75: CLR SCRACH ;CLEAR STALL COUNTER 

7439 032512 005237 005534 14S: INC SCRACH : INCREMENT STALL COUNTER 

7440 032516 001375 BNE 14S ‘STALL FOR SEVERAL MILLI-SEC 


centage ye SS VERIF 2 MACY11 ao 10-JAN-78 12:02 PAGE 149 SEQ 0148 


ZREND.P11 10-JAN-78 10:05 CNDRV - SCAN DRIVE FOR STATUS 
001000 000010 BIT #MOS,RKCS2(R2) ;SEE IF MDS ERROR 
0014 4 BEQ 1 : F_NOT 
1 ooo 000001 MOVB #SELDRV,P.CMND(RS) ; ee FOR ERROR REPORT 


?GET OTHER RK611 REGS FOR REPORT 
;SET REPORT 
; T MOS ERROR 
BABORT , RECODE : F 
ALL RM ; T TE TING 
SOTYE,RKER(R2) ; ORV ERR 
’ 
’ 


Fey Se FOR AEOZ, 


Dooome, 
BnDo 
% 


: 
rofefointetute 
<37~9°- 


ag 00S474 
000014 18S: 


003124 - COT, TYPFMT 


101 
I Oeeeee HOV (Re), F.ES1(RS) 
5 58 Be’ REBSUP 
io NITS 
14 


TAT: B. CHND(RS) 4SET AD DRIVE STATUS COMMAND 
I 





7. . 
1 1 
1 teen MO A:ABNL ; RETURN ADDRESS 
o30 Bueeae 9Peese MOY OBR DAVEAL OO ONE SeATuS 
;SEE IF THIS DRIVE EXISTS AND IS’ON-LI 
a? guvie0g 003046 MOV HE A.ABNL  ;REST ABN. RETURN ADDRESS 
e7 005530 che 8 77 , NEWON See IF ENDICATION ON THIS DRIVE 
905737 003150 TST AUTOFG > FORM AuTo MODE ? 
Taree o00SS00 007530 a IVE, BADDRV+6 ;GET DRIVE NO. INTO BUF 
iBq48; pores [O7880 pipe ERABR Oe SOB Bo eive ke 
104401 007533 TYPE * NXDRIV ;TYPE “NON-EXISTENT” 
oar 000200 001341 BITe kgiT?, SENVN SEE IF RPT 
1 123 —— ie :NED UNDER APT SIZING 
o42762 000100 oo0000 2s: BIC #IE,RKCSI(R2) ;DI E RKO& INTERRUPT 
i7eie 000000 nov 3505, ) SEP UP ERROR RETURN ADDRESS 
:SEE IF DRIVE IS READY a a 
032765 o00200 oono40 45: BIT #S. DRY, P.AOO(RS) ,TEST FOR DRIVE READY 
05737 003150 TS oe TOFG s0R TF DRivE IS READY 
BNE ;SKIP IF FROM AUTO MODE 
1 ooss 007530 MOVB IVE,BADDRV+6 :GE IVE NO. INTO BUF 
1527 00) 007530 BISB #’0, BADDRV+6 : CONVE 0 ASCII 
104401 007522 TYPE A RV : TYPE ~DRL x" 
Los 007547 TYPE ,NTREDY ; TYPE cNOT EADY™ 
-SEE IF DRIVE IS WRITE ENABLED , 
032765 o04000 oooo40 65: BIT #S.WRL,P.AOOCRS) ;SEE IF WRITE LOCK SET 
5878 aus BEG BS FG ;8R IF WRITE LOCK NOT SET 
10 BNE BS ;FROM THE AUTO MODE 
113737 o0SS00 007530 MOVB  DRIVE,BADDRV+6 ;GET DRIVE NO. 
152737 000060 007530 BISB #0, BADDRV+6 ‘CONVERT TO ASCII 
rage 03 1044 1 007522 TYP , BADDRV : TYPE ~DRIVE x" 
74 33036 104401 007561 TYP WRTLOK : TYPE “WRITE-LOCKED” 
7494 O33042e 000726 B $ : TAKE ERROR EXIT 
7495 -SEE IF DRIVE NOT LOADED WITH ALIGNMENT CARTRIDGE 
7496 033044 112765 000103 oo0001 &4$§: MOVB #PACK,P.CMND(RS) ;SET PACK ACKNOWLEDGE COMMAND 


CZR6ND0_RK611/06 SS VERIF 2 
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7497 0330Se 004737 O4eS4e 


74 27 13 
7 4 

7 lel 

1057. 124 


si 


GHEREV HER 


be 


dlawiuuiuuut 
¢ 
8 
oF 
Bs 88 
Si 


he 
WONCU CWO 


as 


bee 


Oobi4t 
141 
030360 
000377 


7$Se 033302 o4eS42 


MACY11 a 
SCNORV 


000001 
000001 


O6S666 


007530 
007530 


B00 00 

O01 
003046 
00SS30 


10-JAN-78 12:02 PAGE 150 
SCAN DRIVE FOR STATUS 


_ VOLUME vere 


ISR 
Hove RecA P PCCHND (RS! bares toll ne ECAL COMMAND 
hove cosets CHND (RS) - ee 5 COrmANO 
BNE sts" $aee IF Y 
HOV 2,P.CYLN(RS) 
2ss: MOV #1456, P .cYi (RS) 
275: MOVB STTRK.P.TRCK(RS) ;SET agRAck.= 2 
nov : 4 P RWOUF »P FOCRS) BUS, 
BICB a6. CFMT.P.CSIH(RS) 4 TGES 22 SECTOR FORMAT 
BISB TPENT. P.CSIH(RS) 
rst AUTOFG ir ies FROM AUTO MODE 
P ?READ 4 S AD SECTOR FILE 
duPont IRR Rl 
TYPE ,BA032 ey READ ERROR MESSAGE 
10S: CMP biz ,RWBUF+6 ; ‘Bee iF ALL 1” Siyi D. WORD 3 
BNE 1 IF NOT ALL sig 
MOVB DRIVE ,BADDRV+6 ;GET DRIVE 
Bise . oo = : YPE OR O ASCII 
TYPE  ALNPAK :T D WITH ALIGN PACK” 


; TAKE ERROR EXIT 


BR 

-ERROR FREE RETURN 

12s: ADD #2, (SP) ; 
RTS PC’ ? RETURN 


iareieeN GEEK STATS OF IVS SE eee 


tt CHKDRV - CHECK 

afi SUBROUTINE: CHECKS Ti hee ML PEF, ne 
+VE E FS . 

ie a 2 at ae SPACE TO cOaneCh The 

a ras i Maptikal fieDuateLy 


ae. ONTAIN The R BLOCK, 
is T CONTAIN "ADDRESS. OF REGISTER BAS BASE eROBRESS’ 


iy CALL: 
;# JSR PC, CHKDRV 


3% 
eTtiititiiiiititititittitiiiiiiiiiirii rot re tee errs 


CORY: HOVE DBI iE 


Hd SHOE ON 
PC, DRVCAL 


Set READ D DRIVE NUMBER 

AD DRIVE STATUS COMMAND 
MOV MAL RETURN RUORESS 
MOV geet tap Sen ON-LINE INDICATO 
JSR ;READ ALL DRIVE STATUS 


SEQ 0149 


eS ee a 


CZR6ENDO0 RK611/06 SS VERIF 2 MACY11 30A(10S52) 10-JAN-78 12:02 PAGE 151 SEQ 0150 


CZR6ND.P11 10-JAN-78 10:05 CHKDRV - CHECK STATUS OF DRIVE 
7553 ;SEE IF THIS DRIVE EXISTS AND IS ON-LINE WOR 
Zee; Cauate lera7 Baseme Saat ie REPPPNELOW™™ FREE EF eS™GRDEG PON On Wale ORTVE™ 
the SoCté‘TSS rs ne Neb Badr iet" 
7557 0333e4 113701 ooss00 MOVB DRIVE, R1 
7o58 30 15870 000060 BISB #’0,R1 iSonveRt 0 Wea 
755 11013 11754 MOVB R1, ORVNED :BUT TPE NON est: INTO MSG BUFFER 
7560 401 011744 TYPE ,NONEXD £ STENT NT DRIVE MESSAGE 
peee " SEE IF ta IRED Bat I | SERVICE 
7563 03334 032765 o00200 oooo40 1S: yal ORY. BB A Boks) - TEST FOR ver Rea READY 


4 00 ‘ BNE 4 
yee Geese THNPS! onsson ie Sign Ev baiiORAe 


eee G83398 1O888i SLIT ia Roan’ CY BAY be HOPE Re AB, RESRREC tes 


SERVICE ALL ERRORS 


7570 033376 0427 o00100 ooocco 4s: BIC IE, RKCEI (RE) CLEAR RK N RAUPT NABL 
eee 033404 ata HAL T ‘fect pny BuRTNG HENCAL. 
5255 : ert oe VE not 
te ~ ee ial a a 
roe 033406 112765 900177 000001 Move BSUBCLR,P cré) ¥STE M CL 
5258 3420 Br7e1e 000000 mov Co VER ‘ar ERROR Re TURN ADDRESS 
7578 3424 RTS PC 
rea0 76s oowoo ocooow aeen 7 BREE SUL LOCKED. IF T 
a Peete Boiort : Be a3: a wid baiTe-pROvEC TES 
reat Gapwe itera, On560e re ae i Soavbat Tore 
7584 110137 12051 nove Rl HODRLK 5 CO ha MSG BUFFER 
as 4 4 12041 TY NOTL ;TYPE ™ ITE-LOCKED 
7 74 BR 45S * SERVI 
cath S460 442765 000113 o00001 iSECALTERATE CEStree Dre Emnaths)g ct oo COMMAND 
7388 pee ab879? oana3 000001 er BPACK or ps Loh i COMMAND 

81 033500 004737 O4e542 arene JSR Pe DRVCAL ;60 PACK cers VOLUME VALID) 
7593 033504 062716 oD0002 >§: ADD #2, (SP) ;FIX UP RETURN ADDRESS ON STACK 
7o34 033510 000207 RTS PC ;ERROR-FREE RETURN 
page 
7538 « REEKKRERRERKKESERKKKRERARSRRERARARRRRRARERRRRERRLAARAAAARARAKAAEE 
7599 th ALNSEK - SEEK IN SINGLE INCREMENTS FROM CYL O TO ALIGNMENT CYL (365 OCT). 
76 p RES BSUS SUESEOEED SETS EO) LT aK Cao. 

1 033512 112765 000117 oo0001 ieee MOVB #SEEK,P.CMND(RS) {SET SEEK” Cc 
7602 033520 GOS065 p0000e an cLR PCYLACRS) ; INI tT i — TOO 
70 033650 2559 06008 te¢a BCvENCRSD ines NT VE IS AN RKO? ? 
7eBe oaaeue bgroas 000366 oo00002 One ALNCYL+1,P. A - SE rn 15 REACHED YET 
8 

7608 033550 001365 BNE 2s BR IF at VE? 


5 eh RK611/06 SS VERIF 2 MACY11 30A(10S2) 10-JAN-78 12:02 PAGE 152 SEQ 0151 


R6ND.P11 10-JAN-78 10:05 CHKORV - CHECK STATUS OF DRIVE 
7609 033552 000207 RTS PC ; RETURN 

7610 033554 O22765 000761 o00002 35: CMP #761,P.CYLN(RS) ;REACH THE CYLINDER 760 FOR RKO7 
7611 001366 BNE 25 : CONT INUE 

sole 033564 000207 RTS PC *EXIT 

rele 

7616 ; = REKEKKERRKKKEKEXKKERKREK ELE MERRKRERERKAL REEL KARE RELEREKRERE KR EE 
7617 jf WALTYR - THIS SUBROUTI OADS HEADS ON THE CURRENT DRIVE, TYPES 
7618 ;# “TYPE <R> WHEN READY™ THE HE N <R> IS’ TYPED. 
7619 Aa a ae ae eT a a 
7620 033566 112765 000107 oo0001 fAITYR: Move OAD P. CHND (RS) 5 

76e1 033574 737 O4e54e2 JSR Be BOREAL HEADS. on THIS DRIVE 

7622 033600 112765 000141 oD0001 MOVB ea B. cnnocréys : STATUS C COMMAND 

76e3 03 737 O4e54e 1S: JSR minty 

7624 03361 6S O00040 oo0044 BIT P.AOLCRSS ABS UNLOADED YET 

7625 033620 001772 BEQ BR IF NO reer 

7 2 401 012651 2s: TYPE , eat :T A <R>_ WHEN READY” 

7 7 30576 ISR PC, PREPKB ;PRE K UT 

2628 3632 0057 o0ss2e 4$: rst INTCHR ; SAG a YET 

550 3E58 99355 000122 oossee CMP #’R, INTCHR > SEE IF <R> TYPED 

7631 46 001403 BEQ 6$ :BR IF <R> TYPED 

76 0336 004737 030616 ISR PC, ECOBAD jECHO_BAD INPU 

7633 033654 000762 BR 2s" > GO ask AGAIN 

7634 033656 112765 000111 oo0001 6&S: MOVB #SRTSPL.P.CMND(RS) ;SET START SPINDLE COMMAND 
7635 033664 004737 O4eS542 ISR PC, DRVCAL ;START SPINDLE AND LOAD HEADS 
7636 033670 000207 RTS PC’ : RETURN 

re39 

7640 F © KH KKKEKKLE RLU EEK KEMR ESE SE KEN KKH EH HRERKRE KHER SHE RK EKHE KER KL KEKE 
7641 tkSETTUP - SET UP FOR | ON 

7642 j #THIS OUTINE C TBE CALLED BY ANY OTHER 

7643 oy en -=- Y I ODE ! 

pele 033672 011637 001076 jpevnenenstexannehetenseneaeaaveetanhtitneneyaesyannensnececiess 
76 033676 012706 001076 MOV seratiens SP iRe-INt He STACK POINTER 

7647 033702 005037 005474 CLR REC AR ERROR RECOVERY FLAGS 

7648 033706 105037 003126 CLRB ERRCN et AR RETRY E OR COUNT 

7649 033712 012705 002630 MOV #PARMO RS :SE 

76 033716 112765 000177 oo0001 MOVB #SUBCLR,P.CMND(RS) ;SET SUBS YSTEN CLEAR CMND 

7651 033724 004737 Oo4e254e2 JSR PC. DRVCAL ;CLEAR THE SUBSYSTEM 

7652 033730 012737 OOO000 177776 MOV #PRO, a8PS jRE-ESTABLISH PRIORITY O 

so53 033736 000207 RTS RETURN 

ress 

7657 s eee e eA KITA CHECK CURRENT TEat ITERATION NUMBER 
7658 “$a7T HKITR CHECK CURRENT TEST ITERATION 

7659 PAIS SBR TINE LOADS THE ITERATION NUMBER FOR THE CURRENT 

7660 i STEST INTO $TIMES, AND C ECK KS wer TO. DETERMINE IF THIS TEST 

7661 Tooth BE . IF ITERATI SUBROUTINE RETURNS 
7662 “TO ORED PC (BND TH T “TEST ME WILE "oS K PRED). IF IT IS 

7663 sant THE RETURN TEST WILL 


7664 *BE RUN. HOWEVER, oN SHE FIRST Pps CauICK VERIFY) OF A RUN 


Jie 


CZR6ENDO RK611/06 SS VERIF 2 MACY11 30A(10S2) 10-JAN-78 12:02 PAGE 153 SEQ 0152 
CZREND.P11 10-JAN-78 10:05 CHKITR - CHECK CURRENT TEST ITERATION NUMBER 

7665 ;#WHICH STARTED AT ADRS 200, ALL TESTS WILL BE RUN ONCE. 

7667 033740 010146 CHKITR: MOV R1,-(SP> eve Ri} 

ceb8 ons 1 $36 000144 001115 MOVB #100. , SERMAX i eeye AX ERROR CNT TO 100 FOR SSCOPE 

a areu te 7 003135 Ears BuLAC acs Bee IF -. jaimenene FLAG SET 

ceed 3028 05737 003116 ore” MOFLAG ; SEE IF See START 

ra 2, id oi 001326 pe SEASS SEE F oe PASS 

cA 2a) 77 Biel e 000001 O01304 35: av ‘ ,» STIMES see al FOR 1 J TERST ION 

7677 701 001102 4$: MOVB STSTNM,R1 “CURRENT Ls NUMBER 

558 1 i per Rt ‘ee T To? GET TEST LIST INDEX 

seat B340o5 paedas ee Seer BeO TETLSTcRID, Times 568 IF Gab TERA SHOUD B BE SKIPPED 

ceee panes Bes7Ee oooco4 9000002 43: re (354, ; ADJUST RETURN PC TO RUN THIS TEST 

7684 034032 000207 ° RTS RETURN 

7686 

7687 

cece nee 

rea pie oa Br cons oan ALA 

7692 ja THEn IN BUFFO Me, 

7693 :#R T AND (fu) F ATURE 

cea) pot ATELY FOLL OW ane , mob tm st eee 

7696 sa Teh IF (¢ ; a) fete } whe Teen tr, mae: 

obag Sir ath Sve Bet! bith H REGISTER IS OP OPEN eb _— 

as i #FOR MODI CATION’ Ie CECTED. BND SHEN THE (?G) RETHRNS 

aa | ;xT *THE NUMBER OF INPUT CHARACTERS IN THE BUFFER IS RETURNED 

7703 ts 

7704 :* CALL - JSR ROCHRS 

7705S :* <CONTROL URN ADORE aa) 

7706 3% <CONTROL-€" RETURN ADD 

a LA H oie ERROR RE ORN ADDRESS> 

08 [3636 3-0-0606 363698 J 0 2 2 9 9 9 a a a a a a a 

771 34034 ROCHRS: 

771 B34034 010146 ——e MOV R1,-(SP) ; 

7713 O34036 010246 MOV Re,-(SP) ;SAVE Re 

7714 034040 S00 CL 0 ; INITIALIZE CHARACTER COUNT 

7715 O42 o0S001 CLR Rl ; INITIALIZE RUB-OUT INDICATOR 

351S o3uo4y 104406 AgEAD A ECHR en ;READ A CHARACTER 

7718 O3404%6 112602 / MOVB (SP)+,R2 :GET CHARACTER INTO Re 

7719 ;CHECK FOR (tC) 

7720 O34050 122702 9000003 CMPB #003, R2 ;SEE IF (tC) TYPED 


2 eee ee 


CZR6ND0 _RK611/06 SS VERIF 2 


CZR6ND.P11 10-JAN-78 10:05 
7721 001006 
772 ae 104401 013246 
ooes Ba 017 000004 
ie 
o7e8 34076 1 erue 000032 
see ERIS Se BRD 
ree BRS Sbares 
7732 114 270e o000eS 
7733 Ba4ie0 1006 
7734 O34lee 104401 013265 
7735 034126 oes 000004 
co38 034134 7 
7738 1 000007 
Fae BtaS upfrge oe 
7740 monte Agu? 013272 
7741 150 7 031126 
rede O34iS4 000764 
é 
7744 aes lee70e 000177 
rae By SElGep 
7747 Baits 001726 
frie BLS Berea 
ree BR TESS! 0 
5525 SS34 
$ret BR TE casos, 
sis 3 005534 
Fe Re Bee 
7758 Sse 0014 
7789 O34e 104401 013303 
re) 034234 005001 
77’ 034236 122702 1 
2763 O34e4e 001426 _— 
7765 om 005037 005534 
o7e8 350 tau, 005534 
776 oa 4 104401 005534 
S66 Hae BR cove 
e 000120 
re BREE TRLGRE oo, 
Seles 120k SRIBIS 
7774 Bau 104401 005264 
7775 O343le 104401 001314 
7776 034316 000703 


MACY11 sp) 1p sae 12:02 


HRS - READ A 


PAGE 1S4 
STRING OF KBD INPUT CHARS 


SEQ 0153 


BNE BR IF NOT (40) 
TYPE CNTRLC FECHO 
000004 3S: MOV a4(SP),4(SP) :PUT RETURN ADDRESS ON STACK 
BR 4§ :BR TO TAKE EXIT 
-CHECK FOR (12) 
4g: CMPB #032, R2 ;SEE IF (¢2) TYPED 
NE g :BR IF NOT (#2) 
YPE CNTRLZ SECHO (#2) 
ooo004 ADD be, 4(SP) OLD PC POINT T9 NEXT RETURN ADR. 
BR § ‘ORY 0 TAKE (#2) EXIT 
-CHECK FOR (tU) 
6S: CMPB #025,R2 ;SEE IF (tU) TYPED 
BNE 8 :BR IF NOT (tU) 
TYPE CNTRLU *ECHO (tU) 
000004 7S: ADD a, 4 (SP) :MAKE OLD PC POINT TO NEXT RETURN ADDR. 
BR ?BR TO TAKE (tU) EXIT 
“CHECK FOR (¢G) 
8s: CMPB #007, R2 SEE F (4G) TYPED 
BNE 35 ?BR IF NOT (4G) 
TYPE CNTRLG *ECHO (4G) 
JSR PC, GTSWRG ‘OPEN SOFTWARE SWITCH REG. FOR CHANGE 
BR ?TAKE (fU) RETURN 
:CHECK FOR RUB-OUT (DELETE) 
8s: CMPB 4177, Re ; SEE IF RUB-OUT (DEL) TYPED 
hi 0 ‘BRE THE RHBRACTER COUNT 
Ad at OR EE COUNT UB-DUT INDICATOR 
BNE 11S a 3 WE HEbeA VI RUB-OUT 
INC R1 }SET RUB NDICATOR 
TYPE BKSLSH : TYPE A BACK- (\) 
11S: CLR SCRACH ; USE T FOR TEMP. BUFFER 
DEC RO : NT COUNT 
005534 MOVB BUFFO(RO), SCRACH T T CHAR. INTO BUFFER 
TYPE SCRACH ;éc TER TO LETED 
14s ost es 5 Oe ee RUB OUT INDICATOR 
Q 16S ; Beir N61 CATOR IS NOT SET 
BKSLSH al pe 


CLR R 
-CHECK FOR CARRIAGE RETURN 


les: CMPB #015, 
19$ 


Q 
;HANDLE POSSIBLE DIGIT 
CLR SCRACH 
MOVB Re, SCRACH 
TYPE S¢RACH 
MOVB Re, BUFFO(RO) 
INC 
CMP #80. ,RO 
BNE 
TYPE SCRLF 
005264 MOVE &O, BUFFOCRO) 
TYPE , BUFFO 
TYPE $QUES 
BR >§ 


TYPE THE AUB-OUT INDICATOR 
;SEE IF <CR> TYPED 
:BR IF <CR> 


GET snare FOR TEMP. BUFFER 
HIS SRR ORTER Ty INTO BUFFER 


Pu MENT C TER COUNTER 
; CHARACTERS TYPED 


: F NOT 
id eter INTO BUFFER 
: TYPE <?>,<CR> 
: TAKE ERROR Exit” FROM ROCHRS 


CZR6ND0 RK611/06 SS VERIF 2 MACY11 30A(10S2) 10-JAN-78 12:02 PAGE 155 SEQ O1S4 
CZR6ND.P11 10-JAN-78 10:05 RDCHRS - READ A STRING OF KBD INPUT CHARS 
7777 034320 104401 001315 19S: TYPE RLF ; TYPE <CR>,<LF> 
7778 O343e4% 112760 O00000 o0s5264 MOVB Ks, BUFFOCRO) PUT TERMINATING NULL INTO BUFFER 
7779 33 7 oo0006 000004 ADD (SP) ; UP _RE TURN ADDRESS 
/ 7780 O34 126 24S: MOV t bys Re :R S10 
| 2781 434, 12601 MOV (SP)+;R1I RESTORE Ri 
o78e 034344 000207 RTS PC ;SUBROUTINE EXIT 
es 
ae Sgr rere ia ctarnt neat ane lemon noe 
e788 FM ig pyar a NE T YPE EC YYYYYY" tH iO <CR> 
77 te <L He nts THE ROMBER oe THE CURRENT ¢ # BND 
7790 Pye ITERATIONS FOR THAT sTest. 
3731 The" Con eeyeear en INDEX INTO THE TEST LIST FOR 
7793 i 
he nl (AT seme areas OO prea ld dt ae 
ae 034346 LoW4oL 013314 rerst, TYPE ASPACEL ACE amane 
3738 re 4 pele AeN CEP) iPr aie ye 
77 16 INC (SP) : INCREMENT TO GET TEST NO. 
7800 034360 104403 TYPOS :T EST NO. IN OCTAL 
Seek Badaps “BYTE ig £0 ING ZEROS 
7803 034364 104401 013307 TYPE SPACEG i TYPE 6 SPAC 
7804 370 016146 005630 OV tSTLST(R1),-(SP) pur Cc NT ITERATION NO. ONTO STACK 
7805S 034374 104403 TYPOS ;t ITERATION NO. IN OCTAL 
7 oS psasc8 a BYTE é a OT ZEROS 
7808 meted noose? ate Bo i RUPP RE 
7810 
7811 gz BERGE GGRRERS SRE RRR RARER RRR RK KKK REE 
s8l¢ TTL TYPPRM - Ty T PARAMETER 
rat is #TH —_ TENE XXSYYYYYYYY 5 
781s HEYYYYYYY Hr a nae Bete ane h LEADING 
581 : ion eATRY, | "ig! ee Rs Cc Far THE INDEX INT te 
2 i oer DE OARAMETER. 
ie : At ete allan A elicits Reinet aot Re 
7ae gayHde 0 137 906010 013316 seppean MOV, PRM MCRD, PRMBUF ¢puT.. MNEMONIC INTO OUTPUT BUFFER 
4414 ? 6 005470 MOV BRn ERLD, Lowoct” BITS PARAM. INTO LOWOCT 
78s Oaiee 2099 CLR Hicoet EH fe LOH BIN BRY wis 
=) oe 2 61 0515 006010 che ‘ “MA, PRMNEM(R1) ; SE noarane Ae Te (MA) 
585 Pease 161 ge 005472 MOV PRML ST+2(R1) HIGOCT 5 ;PUT HI BITS OF PARAM. INTO HIGOCT 
750 ae Ohara? Deenae 1S: MOV ae o8e6 SP} ey ADORE 50 OF F Br ARY av ALLE, ON STACK 
7831 454 4737 0557 JSR PC’ J8#SSUPRS YPE yyy, SUPPRESSING LEADING 0’ 
7832 O34460 000207 RTS — " 
| 
| 


le 


CZR6ND0 RK611/06 SS VERIF 2 
CZR6END.P11 10-JAN-78 10:05 


peg gatibe nsite 
7851 4472 1044 
034474 
001 
01 
146 
4403 


10 | 
12 oo020? 


7855 S0e bier 
rece O34e0e 10nd 


884 
He ONS BIE 


100000 005700 


7688 O34S4e 104401 010730 


oo 
vi) 


MACY11 30A(10S2) 10-JAN-78 12:02 PAGE 156 
TYPPRM - TYPE CURRENT PARAMETER 


boTTL -TYPPAT — TYPE CURRENT WORD OF DATA PATTERN IS 
N 1 
pal is Chie ero 


eee reed "<C> AND Baier f Selden rs Ribep. 


OF THE CURRENT 
+ % N tHE- PATTERN 1S it * elbte 
Dat hale etn oy (Sid lesen och: 
TYPPAT: 
013322 TYPE ee ;TYPE “WORD ” 
MOV R1,-(5P) }PUT INDEX ONTO STACK 
ASR (SP DIVO BY is TWO FOR WORD NO. 
TYPOS RD NUM MBER 
.BYT 2 sPUSLT COUNT = 2 COR TYPOC 
“BYTE 1 LL TYPOS TO TYPE LEADING ZEROS 
013330 TYPE EQUALS TYPE” 
006776 MOV oe | iE BINARY VALUE OF THIS WORD 
TYPOS YPE VALUE IN OCTAL 
- BYTE 6 Tyee te 
* BYT! b NG °ZEROS 
RTS Cc 
eee eat OITY USER-DEFINED PATTERN 16 
+ I FI 
pe Hh RES al HS ie erie Bi 
NPUT T'ON AT HE hr: IT CHE F 
‘RI galt i Ey FT 
iwi AMATION POIN Te ho 
SPROPAGATES one Pat is TYPED tnton ALL R Hat Ne NG 
i. ORDS OF THE PATTERN 
ee 
neapens 
MOV RO, -(SP) Sie At 
MOV RL, - (SP) Py Ri} 
MOV Re’ -(5P) 
;SEE IF PARAMETER iF PT 
052120 006010 CMP #"P 


PRMNEM(R1) SEE IF ae OH PARAMETER IS (PT) 


one IF NOT 
;SEE IF PATTERN 1 1$ SPECIFIED 
BIT T1S,PT ‘BR F PATTERN ¥ gr eCir IED 


B g 22 NOT SPECI 
;SEE IF TERN I SHOULD Be moot 


4s: TYPE »MOFY1S ;ASK WHETHER PATTERN 1S SHOULD BE MODIFIED 


SEQ 0155 | 


5h Te. SS VERIF — 


ZREND .P 10-JAN-78 10:0 
78893 4S46 737 034034 
7890 5Se Bae0z0 
7891 SS4 S030 
ce 1 ns 
oe TS12 

. 7895 034564 2737 000115 
ce38 72 1405S 
ra 74 104401 005264 

38 600 104401 001314 
con 034604 000756 
7901 pes 104401 010706 
7302 O3ve1 BOS00 
7903 034614 004 37 034462 
7304 4620 104401 013314 
oape 034624 104401 013334 
7 737 034034 
7908 pes 
739093 
7310 614 
7911 42 700 
cats 44 
713 Oxess Ose701 Go00v0 
est 0346 0014S4 
oa? Qe2737 000041 
7318 1431 
7319 983005 
7920 74 2 000041 
7ae° 034704 its 00S263 
732 Baie 1g 
7924 71 Be 
73925 714 2 ooco0s 
- 7 558 1s7a6 ooS264 
7 O34736 7. 054500 
7329 47. 34 
7930 7 
79331 7 737 OS4632 
2335 pars 1015S 
733 744 1 006776 
73934 034750 S 
ae 3 0347Se 001735 
73. nee 022701 000036 
7938 034760 BOI413 
79339 0 a 3 016161 006776 
7940 77) Bee cUs oo000e 
eas 774% 00076 
7943 034776 104401 O0S264 
7944 104401 001314 


le 


MACY11 3081052) 10-JAN-78 12:02 PAGE 157 
MODP15 - MODIFY USER-DEFINED PATTERN 15 
Jy Peswocoms 580 FER Foes 
ees :(#Z) RETURN RODRESS 
$ >(4U) RROR RETURN ADDRESS 
TST ?SEE IF NULL INPUT 
o0s264 CHP 8°, BUFFO ‘ere GFN) TYPED 
BEQ 63 :BR IF MODIFICATION REQUESTED 
TYPE , BUFFO ‘ECHO BAD INPUT 
TYPE  SQUES 
- MODIFY BR TERN Ht _ clini 
6S: TYPE SELP1S OE ral PF hone PATTERN is” 
8S: TSR PC,TYPPAT TBE CURRENT aces NOfiO VALUE 
READ AND CHECK pon "VF ANY NPE ASTERISK on ere 
JSR PC, ROCHRS s READ W DATA PATTERN WORD ia 
26S 635) TURN BODRESS FOR RDCHRS 
8S >(¢U) RROR URN ADDR. FOR ROCHRS 
TST RO > SEE IF AN ANY INPUT 
BNE 128 :B INPUT 
10S: ADD #2,R1 : INCREMENT INDEX 
Sco 53g: »Ri tae eT ORE. TO. RE 
005264 12S BHP , BUFFO fo tat A peXT _— 
$ 29 i 
te ass ‘fut io psreareeren” VA 
005263 cHPe #’!, BUFFO-1(RO) i SE if AST CHAR IN BUF IS (!) 
Gee gyrroucmo 1 Seen cua eau © 
INC Re SET (?) INDICATOR 
14S: cnr #6 RO : EE HOH RANY CHARS NOW 
RL RUEDIG? REDE eg" BIE! 
20s Rtg ; ERROR TURN ESS FOR OCTBIN 
rst $HIOCct See ir VAL XCEEDS 16 BITS 
nov RO, PATIS(RI) BUT N WO D VALUE INTO TABLE 
PROPAGATE CURRENT WORD TO END oF Patt + oF ape por — 
les: chp #30. ,R1 Ae MEET 
7 MOV PATIS(R1), ma Hid TE TO NEXT WORD 
oe ADD #2 Ri REMERT ORD INDEX 
- ECHO BAB INPUT 188 :LOOP wre, SO 
YP , BUFFO ;ECHO BAD INPUT 
20s: TYPE * SQUES :TY YPE <?> AND <CR>,<LF> 


CZRENDO RK611/08 SS VERIF 2 MACY11 30A(10S2) 10-JAN-78 12:02 PAGE 158 SEQ 0157 

CZREND.P 10-JAN-78 10:05 MODP15 - MODIFY USER-DEFINED PATTERN 15 
794S 035006 000702 BR as ;BR TO ASK AGAIN 
roe -NORMAL RETURN 
7348 Bseoie isedi aes: iy Cab} SRESTORE A 
734 35018 1 MOV (3P)3°RO RES TORE Fy 
7950 ib 7 RTS PC > RETURN 

795 -(#C) RETURN 

7988 935020 766 014434 oO00006 24s: nov #ORVTST,6(SP)  ;PC FOR (tC) RETURN 

770 225 :BR TO RETURN 

7954 -(#Z) RETURN 
7955 035030 012766 016020 oo0006 26S: SASKMDE,6(SP)  ;PC FOR (tZ) RETURN 
7356 035036 000764 225 ;BR TO RETURN 
795 

| «5ae9 

| con gz TT CUKPRH CHECK VALLE OF INPUT PARAMETERS 
7962 + M HECK a a 5 OF LOROET AND 

| 7963 ates ites rt PARBETER 

| 7964 :HLIMIT R TABLE 

| 7965 ;# x F 

: Hy ee ia aie ay A Bt 
7969 |S (Pans eke “tT Pan. peers: 
3330 j #VALUE ¢ Coe 32, 2 "15" che MENTE B Pte REo URN. 
7972 . <ERROR ne aa ADDRESS 
te Ltn} H * HEHEHE HEHEHE HEHEHE HEHEHE HEE HEHEHE HEE BBE aHeHEEEe 
7976 104407 amen SAVREG ; SAVE 
aa 035042 010102 HOV R Re s apye Pee OF INDEX 
oa28 6 Gee7el 040515 006010 che Sogn PRNEMCRL? es sy BARAMETER IS (MA) 
7981 0573 005472 TST HIGOCT SEE uF 1G BITS = 0 
5a85 035064 yest ooooco 163 ay 185) (SP) >GET RETURN PC 
a ape —e eens VALIDITY OF gent +68 515 Ret HE ne 
7oBe 935078 023762 005470 005734 16s: a0 LOWOcT, »PRMLIM(RE) | INPUT nite Yoo Sac SMALL 
7988 pet oe Ges7be 005470 005736 LowocT, PRMLIM+2( rs INPUTS VALUE IS TOO LARGE 
7989 035110 10136 st " ir VALUE IS TOO LARGE 
7390 ;UPDATE 16-BIT PARAMET ER VALUE TAL 
7991 035118 013761 005470 005660 MOV LOWOCT, seen Wd PARAMETER VALUE INTO LIST 
7992 5120 0004S BR elcey TURN 
7993 -CHECK VALIDITY OF 16 Pho veneer 
oa30 035122 932737 000001 005470 20S: BIT eBI CT ;SEe TF nll, 25,000 
79 038132 43P3 005472 005736 ed HIGOCT, PRMLIM+2(R2) cere HIGH WORD TOO SMALL 
? 140 103751 BLO 16$ ;BR jee HIGH WORD IS TOO 
79 035142 1004 BNE rt} R IF HIGH WORD NOT EQUAL TO LOW LIMIT 
7999 035144 023762 005470 005734 CMP COWOCT,PRMLIM(R2) ; SEE IF LOW WORD IS TOO 
8000 035152 103744 BLO 16$ BR IF LOW WORD IS TOO SM 
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t: 
f 
1 

13 
14 
ie 
i 
18 
1 


8004 
B00 
=e) 
BD) 
8 
+ 
<8 
> 
=8 
eo 
BO 
+ 
BO 
80 
80 


222 2gBSRATERESBSUOYS 


Boe. S34 
80S6 035360 


oo 
— 


oe 


1) G) 
NN 


: 
BSE 
=) 


ae 


828s 
Bags 


16-3RN~?6. 10705 


o00s47e2 


000001 


000001 


on at BRR check Mi VALUE bf FF Bed SPre 


o0s742e 
005740 


o0S660 
oos662e 


000014 


000001 


e4s: CMP HIGOCT, satep vein * ;SEE IF HIGH WORD +. TOO BIG 


BHE Be $F Ht Hol PRot ? t 9 once LIMIT 
ARGE 


CMP TE ay olf LOW yO WORD IS 
et ABR 00 LARGE 
UPDATE 32-BIT 
aygor $: + LOW WORD INTO L 


Tern it 
Merete ro RE RET tl Re 
fie MRE LMR BLE. 
MOV R1, SUMHI1 


MOV 1,-(SP)  ;PUT PO NTER ON ON STACK 
ISR apn ; CONVERT TO OCTAL 


SR SUPRS :T I 

YPE iTYPE ¢ <CR> , <LF> 

ADD if 14(SP) pINCREMENT RI INDEX 
2 #2,(SP) ;GET 
50s: REG ; $ 

R PC : 


ately tt faded tt ottolatet tt lat Sith Sat SS tab ttt tah Sahat tetat tt blab beh ebb tt he 
M LIMITS AND CURRENT MA, 
seis LEAVE THE ARE 


c Ri- 
TT ar Sali! tt ht at lalla +t ttt tart tlle 


hkWROC: MOV MAHILM, RO BITS OF MEM LIM 
MOV mAHIL +e, R1 : HT er 5 or men gt 
SUB HA, R :SUB T MA FROM MAHILM 
Sua MA+2,R1 
BMI 27s” ;IF NEGATIVE, RETURN 
C c a :DIVIDE BY 2 TO GET WORDS 
ROR RO 
ADD #1,R0 ; INCREMENT BY 1 WORD 
mw 
BEQ 7S ;BR IF WORD COUNT < 65,536 DEC 
cLR RO - :MAKE WORD COUNT = 65,536 
273: RTS PC’ ; RETURN 


jRERMEASEUSESHEREE DEHN OTVE SERICL NUMBER (LOW 3 OiciTs) 
BETTE BENGE ne Tobe UORrOE BER, Oo sae in ESET 
aS Ie UTINE TYPES “DRIVE SER. NO. XXX” CIN DECIMAL), WITH LEADING 


Fee eeaemmmaneenrr sx eanganbomamang? 9 


REG 
JSR = ander Me ,;CLEAR S as PARAMETERS 
MOVB ROSTAT CMND(RS) ;SET READ TUS COMMAND 
JSR READ STATUS OF THIS DRIVE 


SEQ 0158 


CZR6ND0 RK611/06 SS VERIF 2 MACY11 30A(10S5S2) 10-JAN-78 12:02 PAGE 160 SEQ 0159 


CZR6ND.P11 10-JAN-78 10:05 DRVSER - TYPE DRIVE SERIAL NUMBER (LOW 3 DIGITS) 
| SBE ARES IBNGL BLE i | 
(BBE RBG lesa) BERERS ny ts ba! HEF Boe kOe 
_ 8061 10446 MOV ‘s j STORE IT ON STACK PFOR SSUPRS 
| BOE 41 + amma ROL 3.3 SINT ies Be By post ti0Ns 
| g064 14 101 ROL R1 

epee Betis B88 4S: ROL BI ;GET NEXT 4 BITS 

101 ROL R1 
Bi ies ioe ye i 
4 94 177760 BIC 125960, ro tetEaR AL cau cen” 4 BITS 

B07} G34 0S2700 000060 BIS #’0,R0 CONVERT A DY GIT TO ASCII 
| B07¢ 440 110024 MOVE RO, tR4)+ :PUT afocht T ouht9 CHAR BUFFER 

a“ Ooi se4 8 a3 RE ROT SCH 
| 8075 ne 14 eRe (R4) lar NULL Fear 

ag 035454 Toya bor 31s T9PE te YP CRY AND _ 

pore Gaeted AaNiG ayers eight 

07 4 02 PC IR 
| g081 
| 8082 
| 
| 
| 
| | 
g 


CZR6NDO RK611/06 SS VERIF 2 MACY11 30A(10S2) _10-JAN-78 PAGE 161 
CZR6ND.P11 SERIAL ee 


10-JAN-78 10:05 DRVSER - TYPE DRIVE NUMBER (LOW 3 DIGITS) 
pate ‘ eet TEER. “TYPE CARTRIDGE SERIAL MUKER 
gee j RTHIS SUBROUTI TYPES cae ; . NO. XXXXXXXXXXX" CIN OCTAL), | 
6087 4 004737 032310 iit ATse Te TEIBHD caine Seey8 SE Sl | 
8089 038470 14e7es 000020 000007 * Bice OG’ eat Pe. “me vist nee SECTOR FORMAT 
8030 4 737 003125 rot FORMAT UAL FORMAT 
6038 1 INCB CTCRS) eam anhERD SECTOR 1 

19 ii 121 000001 4S: MOVB crocs 
i reared HOVE ie Rigstts if age 
Bose He ated nov 8-2,P. FER B READ 2 WORDS 
8038 7 §4oeu8 JSR PC BRVCAL Re IN BSF 
80939 5 194401 O11 ite TYPE , CART it mi a 
8100 1 011151 T SERNM iT . 
8101 12 065660 MOV BRWBUF , - (SP) ; on, NTER FOR $0820 
810¢ 35 7 955438 JSR Pc, a#s0B20 ; Hage TO OCTAL 
1 737 5752 JSR AT “aoe SERIAL NO. IN OCTAL 

8104 035576 104401 001315 TYPE ScRLF TYPE COR) AnD <LF> 
B105 035602 000207 RT: PC 
81 
8108 
Bio3 err Scat STALL FOR ST UNIT STALL TIMES 
ae Rehan has steerer SRREL EE BL STH TPE 
8113 ie EGUA soe i, A's FQNOOR G STALL Is CYEB” 
Bt i 3 rrr ePereT Tiere retti TerrriT Trt iTTTtt TT TT tt TTT ttt tT itt TTT tetey 
8117 035604 010046 seis MOV RO,-(SP) ;SAVE RO 
8118 010146 MOV Ri: -(5P ;SAVE Ri 
8119 1 036/77 000400 143322 BIT patTOe. aSwR i REPLY RANDOM STALL ? 
8120 1407 BEQ 5 *BR IF NOT 
8lel 737 O0S4634 JSR SRAND *GENERATE PSEUDO-RANDOM NUMBER 
8122 13 054734 MOV SLONUM RO :GET iT INTO RO 
gisa 00 AR CRO pee oe ae 
8125 03 BR 23 ;GO_ STALL WITH RANDOM NO. 
gis? a8 bois ones eS es ee 1 OE TURN TE ND STALL REQUIRED 
8128 44 012701 OoO00016 2S: MOV #14. ,R1 >SET CONSTANT POR 40 US 
cigs Beeeee rays Re Taner (836 gguren 
cL Gees Bes fe 8 igure tee geome 
Bi 34 O3sebe 51500 6S: ov. «CPs sReaTORS Bd 
B135 35664 000207 RTS ec RETURN 
8137 
8138 


13 


OS2)_ _10-JAN-78_ 12:02 PAGE 162 SEG 0161 


CZR6ND0_RK611/06 (1 
ALL - STALL FOR ST UNIT STALL TIMES 
% 


SS VERIF 2 MACY11 30A 
CZR6END.P11 10-JAN-78 ST 


10:05 


gi 33 g3 TTL CRNOADR = RANDOM CYLINOER ADORESS GENERATOR 

14 : sree, - OM 9-BIT CYLINDER 
Bie HRAGORESS. “AND Leaves 17 Re “CYL . IT REQUIRES THE SYSMAC 
gia ;# nee RNDADR 

14s et axel taenxeersiies ors nenenesnedenenuneenaennennanansennes 
td B2ebo6 B03539 mata oosso04 RROAOR: aoe SL ONUH, CYLNDR B ae 
8148 O3e678 2737 177000 oO5S04 BIC CYLNOR GELB IT TO 9 BITS 
Bisco Ose715 baz003 OO? OOSSON Sar cerert, we,tw Fi 
8151 035716 043737 Oe20042e oosso4 BIC HOLD1,CYLNOR :SCALE DOWN TO A VALID CYLINDER 
g15¢ 632748 000207 2s: RTS = RETURN 
8154 
g155 
Bie? i taDSEC THis SUBROUTINE LOADS THE CONTENTS OF RO INTO ALL. 
8158 :¥256(DEC) WORDS OF THE ofa SOPFER (RWBUF ) . 
B13 035726 104407 7 sid laa a 
8161 035730 012701 oO v WBUF + BOVE BORE 
B8l62 035734 bi Soet —_— 2s: nov Hs thes get WORD TRTO BUFFERS settee 

, ’ 

8163 035736 Ge0ie? 066660 . CMP Ri, #RMBUF +512. :$ E iF WORDS WRITTEN YET 
8165 035744 104410 RESREG * RESTORE ROoRS 
8166 035746 000207 RTS PC RETURN 
8168 
8169 
8170 + RERGRERRRRMREG EGE EGEGRRRRARRRRERRRRRRRRRERRE ERE RRR ARHRARRER 
gifs eect ESE EOS ol oh nl Bel Se Rte 
gta ; K *ai Meta ti Fon” That T T BR BLOCK OF DATA WRITTEN. 
Biz 035750 104407 Hise. See ie en 
8177 035752 O16s46 0004 MOV .SECT - : AND AME 
8178 035756 105065 poon0s CL p: GK CRS)” (SP) PEAR THE TRACK = sesesnisitenins 
81 -LOAD THE DATA FER WITH THE C NT T 
8180 762 426500 20108 os: Move .TRCK(RS),RO ; TRACK NO. INTO RO 
8181 766 700 0001 ADD #100, RO_ ; (OCT) TO TRACK NO. 
8182 772 004737 035726 JSR PC EC oh TA WITH TRack NO. + 1O00(OCT) 
8183 35e 2765 131 000001 MOVB BWRTCHK.P.CMND(RS) ; WRITE CHECK COMMAND 
8184 4737 O4e542 JSR PC, ORVCAL S PERFORM THE WRITE CHECK 
8185 10 1 000005 INCB P. TRCK(RS) ;INCREMENT THE TRAC 
8186 44 76 000003 oo0005 CHES #3,P. TRCK(RS) : EE FB WITH ALL TRACKS 
8188 036024 016665 ooo004 MOV EG (SP)+,P.SECT(RS) “ABESTORE TRACK A AND SECTOR PARAMETERS 
8130 036032 000207 RTS PC i RETU 
8192 
8193 
8194 5p RRR EERE EERE E EERE EEE REEL ERR HEALER REEL RRA ES 


G13 





SSREIECLINE! OB SRAMEBTicks CTO SERSABRE? RARGSN EVE InbEA SooReSE AEeRaron “am 
e135 ; x08 ‘Ss GENERATE SIXTEEN PSEUDO-RANDOM NUMBERS AND LOAD THEM 
1 ea eevee nierer cere rn Ur eeeeteeeeeeeeeeeeeeny 
U2 BE He ame NN nh acura oe 
Bu Rees Bite Be aia, EP aedeerhinoreern re 
8203 013720 054732 MOV SHINUM, (RO)+ :PUT OTHER NO. INTO PATTERN 
E Rl i SEE IF 38 LOADED YET 
6 Toda RESREG TRESTORE RO-RS 
B20? 036070 000207 RTS PC } RETURN 
8209 
8210 
es! ; SD gO pe PbS he er ea cre. 
1 HI D RA ER HAS COMPLETED, TO 
8214 ADDRESS 
eel Pees oft fMneoH, OBER Res tea HEPT de dette urTH 
aH nes ros, uarcHe 13" REY Re aneD ENE thE Back INDORESS OF” A N26F TMARE 
1 ; A 
Bee 93607 404907 oa i ee 
8223 036100 416 NEG (SP) VE 
B2e4 1 : o 
8225 ested Tieee 990003 _ sove 31 =P), (SP) tan aA TORS TRANSFERRED 
BS55 psetis Wires «Bonne ooo002 Sove g{SPd og ),2¢SP ONG SECTOR 
858, O3e 122 deeere B00082 apo (SP), (SP) r! seleehose FIN sec TOR ADDRESS 
8550 B3ei ss i oe v #22. RO feet FoR 2 Of TRACK Pacer: 
B31 036138 105737 003125 TSTB FORMAT : DETERM The FORMAT 
Sa ae Ne SA Poe 
i 020016 19S: CHP RO, (SP) ;CHECK FOR ETOR OVERF 
8532 O3185 isboie St) ty (SP) iDetre it cTOR ae 20 OR 22 
8237 i INC ecSP) ; INCRE 
8539 O3eiea ee 20S: nove (38+, FINSEC Syne F ara ea 
Sl Ge Be mre Fees) > eerie 2 
43 ‘! wo Hest fat ERMI FINAL RACK ADDRESS 
i 21S: crea 3 (SP) : CHECK Feat TOE RFLOW 
le 1 BHI ecg :NO, CHECK FI 
cess GEL) bpecle OBR002 eta FRRRPRSI gx coun By 3 
8248 0362204 000770 BR 21 ‘CHECK FOR TRACK OVERFLOW 
4 . ; 
gea3 Gaeses lee? 905670 ees: Hove (SB rayrac., | STORE, EIDAL TECK cee 


CZR6ND0 RK611/06 SS VERIF 2 


CZR6ND.P11 10-JAN-78 10:05 
Sil GaeEm QlusyZ cos 
82S3 036244 104410 
BSed 036e4%6 000207 
8256 
8257 
8258 
g 
8261 
8264 

i 
8267 
8268 
Sx Gee Ghee BRSs 
8271 737 005536 
ec ee 
74 70 0400 
ae a 
036302 
000001 


eee Sees CEE RERERE 





a 

160000 

140000 

e302 020000 
30 000200 
8304 020000 


D3E436 005302 
036430 


MACY11 ‘Foun. 10-JAN-78 12:02 PAGE 164 SEO 0163 


NADR - COMPUTE FINAL PACK ADDRESS 


MOV (SP) FINCYL $ STORE offs r08 CYLINDER 
TST (SP)4+ LEAN OFF 

RESREG i RES TORE 

RTS PC 


Sarre ChORBUE. --L08Q TM BEBD/WRITE DATA BUC TER 


FIT Mi ne PB RoS "4 4B* PeATi See bat ieien TO BY 
Bet ay ame hase mt beige yeu oreros= 
‘B THE PATTERN IDENTIETED. BY yen 0 Het Hee I ih R1 ON 


SE NEnUAOSSERNSESESUSOSSHSSEESSOUSSGNSESNSEOESESEOESEEESESESEEESS 


MOV XFR, R2 a OF WORDS 
TST PATRN F. wgutck VERIFY ATA TEST DESIRED 
BNE 3$ :BR I T QUICK 
MOV #PATOO, RO :SET barn PATTERN "STARTING ADDRESS 
MOV #256. .-(SP) :SET PATTERN 
HOV SRWBUF ,R1 : 

3S: CLR RO : INIT PATTERN 

4§: BIT #BITO,R1 ;SEE IF THIS I 
BNE 6S >BR THIS 8 1s SET 
INC RO i INC NT PATTERN NO. 
ASR Ri :SHIFT TO EXAMINE NEXT BIT 
BR 4g :BR TO CHECK NEXT BIT 

6S: ast RO :MULTIPLY PATTERN NO. BY 32(DEC) 
ASL R 
ASL RO 
ABD Raton RO Ss SIRED PATTERN 
MOV #16.,-(SP) GET Boor ERS ROR G bt 


ney the sat EF HER BRORE SS 


BPL 30$ NOT PRESENT 
;BUFFER LOAD LOOP Caen ask 
VPAR 


om keg 


172354 MOV 
177572 BIS erred MENT 
BIC SSS :FORCE RELOCATION THRU KIPARG 
22S: MOV : ;GET A COPY OF PATTERN ADDRESS 
MOV (SP) RY : INIT PATTERN 
24s: MOV (R3)4, (R1)+ eL A DATA D INTO BUFFER 
BIT #81T13,R1 : SEE iF OVERFLOW TO NEXT PAGE 
BEG 265 ; NO 0 : 
172354 ADD W200, 9¥KIPAR6 INCREMENT P Y 4K FOR NEW PAGE 
BIC #61T13,R1 AGE = 6 AGAI 
26S: DEC Re : DECREMENT “WORD COUNTER 
BEQ 28s :BR IF ALL DONE 





cenetge RK611/06 SS VERIF 2 
CZR6ND.P11 


DODD WDODOWDWOWOOODOOW 
ageccrcceeeeae: | 
—OWONCTULSW-O N 


10-JAN-78 10:05 


pase pases 
i 


000001 177572 


407 
737 QGOOO40 064176 
737 


000007 O6SSS2 
S6 





I13 


MACY11 30A(10S2) 10-JAN-78 12:02 PAGE 165 SEQ 0164 


LODBUF - LOAD THE READ/WRITE DATA BUFFER 


DEC R4Y 7 a PATTERN WORD COUNT 
ered, a) Oa YET 


BR 225 :BR TO REPEAT 

28s: BIC s81TO, , a8SRO iD} ME 

-BUFFER LOAD LOOP FOR NO MEM MGT’STARTS HERE 

40S: MOV RQ RS, ;GET "pate Y mg PATTERN ADDRESS 
MOV INIT COUN 

34S: MOV (Rays CRL)4 zh By WORD. TN INTO. BUFFER 
DEC R2 tak bat 
BEQ 44$ ; 
DEC RY i DE MENT PATTERN WORD COUNT 
BNE 34S a oF atte PATTERN YET 
BR 303 :BR TO REPE TTERN 

44s: TST (SP)+ ;POP Ouest 
RESREG RESTORE Rooks 
RTS PC : RETURN 


SBTIL -CHPOUF ~ SOFTHARE COMPARE DATA ee nee oe nee a 
a SUBROUT Ne PERFORES A SOpy eae or THE R/W DATA BUFFER (POINTED 
;*TO BY PMA Re "Prinee) oT ns ae ISTE RE REPEAT NG DATA PATTERN. IF 

= 


j #PARANETER PA TA IS C ISED OF ALL THE PATTERNS 
;#00-15_ ICK VER FY ee ete" 
;#IF PATRN 1S NT tre T IN RI ON ENTRY IDENTITIES THE 


#REPEATING 
MTT Eetatt cel TerterecSe testes CTeLCE ensnnsnnennnsnsnssae 


ipesess SA 
#40, 0H701+38. seoigee oo MSG PARAMS 
nov nt OF Ses T NO. OF WORD 
CLR CRACH’ EAR RROR COUNT 
ISR BE REPSUP Stee COMPARE F FOR POSS. PRINT 
Tet PATRN ier IF wat IS QUICK VERIFY DEFAULT DATA TEST 
MOV #PATOO, RO :GET DATA PATTERN STARTING ADDR 
MOV #256. .-(SP) :SET PATTERN WORD COUNT 
MOV #RWBUF , R1 SET FER ADDRESS 
BR 30S : PROCEED 
3S: CLR RO : INIT TTERN 
4$: BIT #81TO,R1 :SEE IF THIS BIT IS 
BNE 6$ BR If THIS BI is SE 
INC RO > INC MEN PATTERN NUMBER 
ASR Ri :SHIFT TO EXAMINE NEXT B 
BR 4g :BR TO CHECK NEXT BIT 
6S: ASL RO :MULTIPLY PATTERN NO. BY 32(DEC) 
ast RO 
ASL RO 
ASL RO 
ASL RO 
ADD #PATOO, RO ;GET ADDRESS OF DESIRED PATTERN 
MOV #16.,-(SP) ‘PATTERN WORD COUN 
MOV PMARL :SET BUFFER DooRESS 
TST $KTi1 :SEE IF MEM MGT PRESENT 


crete, i TE SS VERIF 2 
CZREND 


10-JAN-78 10:0S 


i 


ae 


bat ad Sees sss mo 
easaeseneeee 


837 1 
714 
8381 716 
Be Bere 
8384 726 
8386 730 
8387 O3era2 
8388 734 
8389 736 
8390 740 
8391 744 
8 036750 

83 

036756 
036770 
97 036776 


5 
£0 
ee 


eee e 


Ee 
cae 


F 
® 


84039 03 
8410 

Byis 

841 7066 
8413 B37 878 
8414 70 
8415S 70 
8416 037076 
8417 037104 
8418 037110 


100041 


EE 
2701 
0Se 


Oo OF 


eae 
SSS 8 


-_- 
fm N 


—O- 


ecr8 


BooKau 
NON 


sts: 
uu 
OONO 
WWW) 
NNN 


172354 
020000 


000200 
020000 


037362 


177777 
001176 
001200 


MACY11 30A(10S2) 


72354 
77872 


001216 


172354 


06SSSe2 


001202 
005S$7e 


005474 


001174 


BPL 308 ; BR 
;COMPARE LOOP FOR MEM MGT STARTS’ A dae 
SAV @sKIPARG 


MOV PAR 
BIS #BITO,a8 
BIC #160000, 
BIS #140000; R1 
225: MOV RO,R3 
MOV (SP). RY 
24s: CMP (R3)4, (R1)+ 
BEQ ess 
nov DeKIPARG, SREGIG ; 
25s: BIT #B1T13,R1 
ADD #200, #KIPARG 
BIC #681T13,R1 
26S: DEC R 
BNE 275 
J Sus 
27S: DEC RY 
BNE eas 
COMPARE LOOP FOR fNO MEM MGT sTaATS 
Gs: MoV 
R ),R4 
34S: CHP (R3)4, (R1)+ 
BNE 31 
IMP 4 
31S: CLRB 01+38. 
MOV #5, D0F25+2 
-COMMON COMPARE ERROR HANDLER 
45S: MOV Re, SREG1O 
nov tae te 
JSR PC, FINADR 
SAVREG 
MOV FINCYL,RO 
MO’ FINTRK.R 
MOV’ FINSEC.R 
JSR PC, BOSRCK 
BI SBADSEC , RECODE 
BNE 
TST CRACH 
BNE 3 
TSTB UBMPRS 
BEQ 46S 
MOV CRMPHO, SREGS 
MOV CRMPLO; 
ERROR 116 
ERROR 117 
BR 48S 
46S: ERROR 34 
4g$: MOV #-1, SREGS 
CLR SREGE 
CLR $REG7 


10-JAN-78 12:02 roe 166 
CMPBUF - SOFTWARE COMPARE DATA 


IF NOT PRESENT 

: T UP WORKING PAR 

; TURN ON MEM MGT 

;FORCE RELOCATION THRU KIPARG 
A_COPY OF PATTERN ADDRESS 

PIN T PATTERN WORD COUNT 

3 COMPARE DATA WORD TO PATTERN WORD 


ERROR 


EF ee ou TO NEXT PAGE 
el ii 


ae — 
za 


Baa oe et 


Pgs PATTERN WORD COUN 
WITH PAT CRN YET 
Q REPEAT THE PATTERN 


Y_OF PATTERN ADDRESS 
;INIT PAT rare WORD COUNT 
He DATA WORD TO PATTERN WORD 
BR F a ERROR 
iF be A COMPARES 0 
fotite T pate HEADER FOR MSG 
RROR DATA WORD COUNT 


GET WORD NO. 


;GET f. S COMP OF WORD NO. 
ACTUAL PACK ADRS 


HIS S 
TORE RO-RS 


ISTED- DON’T REPORT ERROR 
E COUNT 
T FIRST ERROR 


ECTOR LISTED BAD 


; NO 
;GET CURRENT MAP REG 0 
;DATA MISCOMPARE (11/70) 


TYPE HEADING FOR ERROR MSG 
PINIT CYL NO. 


SEQ 0165 


K13 








CZRSNDO RK611/06 SS VERIF 2 MACY11 30A(10S52) 10-JAN-78 12:02 PAGE 167 SEQ 0166 
| CZROND.P1L 10-JAN-78 10:05 CMPBUF - SOFTWARE COMPARE DATA 
523 S534 36S: INC SCRACH ; INCREMENT THE ERROR COUNT 
0001 142012 Bit #6170, JSWR jSEE IF ALL ERRORS, SHOULD BE REPORTED 
B: & oo00012 ooss34 cH #10. ,SCRACH IDR IE ERROR CNTY EXCEEDED 
001174 OOSS&E 38S: cne SREGS, FINCYL SEE F DIFFEREN 
fe 001176 005570 cNPB § G6, FINTRK ie IF VDIFFERENT TRACK 
8428 001200 005571 cnPB SREG7 , FINSEC ;SEE IF OIEF RENT SECTOR 
6450 Q055 001174 42S: MOV, FINCYL , $REGS :SET NEW PACK ADRS FOR PRINTOUT 
B36 poe 671 001200 MOVB F INGE’ SRE EGS 
B44 001 wus: AEG $REGIO UTE ORD NOC CORES 
8435 177776 001204 4 Vv “g(R3), SREGLI ‘GET GOOD DATA 
B436 177278 001206 MOV -2(R1);$REGI2 };GET BAD D 
B43 O0 1206 o012i2 nov $REGIQ, SREGIY :COMPUTE PHYSICAL ADDRESS 
8439 1 igle ROL SREG14 
8440 1 lel ROL SREGI3 
001212 ADD PMA. SREG14 
1210 ADC $REG13 
06 001210 p pes $REG13 
: 1214 acaba nov RL» SREGI ;GET VIRT. ADRS FOR PRINTOUT 
ERROR ; TYPE GOOD_AND ADRS. 
000100 141620 BIT #B1T6, ISWR EF IF wer i BRROR 'S SHOULD BE REPORTED 
1929 5 ; RROR SHOULD BE REPORTED 
00s 005536 Sos: TST PATRN ice IF DEFAUL DATA TEST 
: 7 057732 T r skT1l ee I, PRESENT 
1 036672 IMP 25s MEM 
40S: DEC Re COUNTER 
14 BEQ Sus 
DEC RY Le TTERN WORD COUNT 
WITH H PATTERN YET 


ow 
ial 
wu 
ae 


Fe 
Ow 
goG 
N“N 
oe 
Bae 
Ht bs 
ay 
é 
v 


ag 
o 

8? 
uiru 


te 
ne 
& 
2 
R 
oO 
NO 


036730 UMP TO REPEAT THE PATTERN 
036734 533: JMP 34S 
8460 057732 S4S: TST $KT11 SEE IF MEM MGT PRESENT 
BPL S6$ RE SeNT 
eles 370 000001 177572 BIC #BITO,a#8SRO i DISABLE MEM MG 
S6S: TST (SP)+ ;P HE STACK 
ae RE aie 
8466 . 
ae 
8469 s SE-26 6 HE HEE HE HE ME SE HE HE eH aE EH HE RRR REA RE RHE RS 
8470 he CTLOUT - THIS sueROUT INE CHECKS FOR (fC) oR $09] TTY_INPUT. 
8471 j¥IF (#C) WAS TYPED, THE SUBROUTINE RETURNS TO ORVTST. IF (2) 
8472 xWAS TYPED, THE SUBROUTINE RETURNS TO INPUTP. IN EITHER Gast, 
8473 iA RESET INSTRUCTION IS EXECUTED, AND THE STACK IS RE-INIT- 
8474 ;*#IALIZED. IF THERE IS NO INPUT, OR INPUT OTHER THAN (tC) OR (tZ), 
leahieinanindamnaieainiiteadiadite 


5 ah RK611/06 SS VERIF 2 
CZR6ND.P11 10-JAN-78 10:05 


SE 2e? 
BBVA 
—— 
ae 


44 


44 jee737 00003 
07 733 1 ei 7704 

44 : 5 tes ae 

B512 037600 001002 ‘ 

Bey Barebe Boss, Baaebe 

8515 O3761e 000207 

8516 

8517 

8518 

B8sq 

B5el 

g5e2 

B5e3 


Bes 037614 104407 


Se ares guar 
8Se9 0376e6 010320 


065660 
000400 


a PaScRceae GRAPES 33 
+4 
: 


MACY11 spat Gee? 


003120 


oossee 


003046 
000001 


oossee 


oosSee 


oosSee2 


10-JAN-78 12:02 PAGE 168 
MPBUF - SOFTWARE COMPARE DATA 
5 #NO ACTION IS TAKEN. 
i Cc JSR PC, CTLOUT 
rir ceeerturar tru crt ron 
itt OUT: CMPB #1 TSTING ;SEE_ IF CURRENTLY RUNNING TESTS 
* Ne 108 a ORT ONY Te INPUT . 
Bo { 5 i BR iE NO typut 
TSTB MDFLAG E IF DEFAULT MODE RUN 


BEQ 13s 
coe #003, INTCHR ey IF (#C) TYPED 


4 R_IF NOT (tC) 
MOV #ORVTST,RO ET RETURN ORVTST 
2s: gate XOVLAD E AF Mt XXDP CURRENTLY OVERLAID 
JSR PC, GETXDP Res! ore. saver mer IF NECESSARY 
6S: RESET 
LR NTCHR 


eg Te (en. Peat “Om 


A.RBNL ;REST HANDLER ADDRESS 


abe T_RECAL C 
aR | statu ob 


— 
a en 
4$: chee 8932, INTCHR SED arate BF ot 242) ) PyPED 


MOV AINPUTP, RO SET RETURN A50R = INPUTP 
12S: ches #003, INTCHR Set Pe (fe) TYPED 

TP OTR Y TBE =f HELPED, N RDY” 

RY Sea. TPG, las: E EXIT 
73: ee ior, INTCHR SE iF panes TYPED 

ei BREN DE TWARE. FOR MODIFICATION 
ee ee 


[HHPIEEHEOSEEREEEESUSERESEEE SEER RENEE SR REET ERT eRe E OR 
WRITE A BLOCK OF 4 os ONTO DISK AND oo" M 

in WRITE CHECK. ae BR Block “UST. BE ~LOADED WITH PAC 

;*ADDRESS. DATA WORD I ASSED IN ON ENT Y. RWBUF IS THE SUFFER 


#U 
TE Seca aaa 


inte ; 
;LOAD THE R/W BUFFER WITH DATA 
MOV #RWBUF , RO ;BUFFER ADDRESS 
MOV #400, Ri :400(0CT) WORDS 
4S: MOV R3, (RO)+ :LOAD A BUFFER WORD 


SEQ 0167 


CZR6ND0 RK611/06 SS VERIF 2 MACY11 30A(10S52) 10-JAN-78 12:02 PAGE 169 SEG 0168 


CZR6ND.P11 10-JAN-78 10:05 CMPBUF - SOFTWARE COMPARE DATA 
8530 037630 005301 DEC RL ;DECR_ COUNTER 
8531 037632 001375 BNE :BR IF NOT DONE YET 
8532 ;SET UP PARAMETERS . (RS) . ae inom 
eee 
bea Baseas Btsob2 999888 BBaBis oe PS sara SE HEH AP RR eS Re) oe FET ORB COURT 
' 7 000001 VB ATAP. mp WRITE COMMAN 
e537 Oa7e8b b3702 uit ere Bry ” BREE jot TF He HE TTEs eee rep 
037666 004737 O42S42 or PC DRVCAL : WRITE THE DATA 
8540 -PERFORM WRITE CHECK 
8541 037672 112765 000131 oo0001 &s: MOVB #WRTCHK,P.CMND(RS) ;SET WRITE CHECK COMMAND 
4 77 737 O42542 Zor PC, DRVCAL ; ER ITE CHECK 
4 77 1 4410 SREG tRES - 
44 77 00020 RTS PC RETURN 
854s 
E58 
Sus ; {AtOMENL = LOAD MEMORY HITH INCREASING NUMBERS, STARTING WITH 1. 
ge XCBHEND = LOAD HEHORY uiTH AEBEATED HonD, INA Mey’ 
8551 38018 SUBROUT MEMORY ADDRESS ed OOMae. AND WORD COUNT 
5 277} 407 FEO Sl tadiateSisnssnsssessnsnnnesassgsasnsnssseseceeneneees 
ged 39519 dpe da. CLR RY aq 25 ROS eaTES LOMEN 
B556 g37714 012703 oo0001 HOV a1 R3 i DATA WORD TO 1 
85 32 LOMEM2: SAVREG A -RS 
855 77 1 177777 MOV #-1,R4 4=1 INDICATES LDMEM2 
30 013702 O0SS64 LOMO: MOV WOSKFR, Re :GET NO. WORDS 
34 O4 MOV PMA ig T nen ADRS 
- rae 32 rst ski ; Ee, M MGT 
gobs 037746 042701 160000 BIC 16 Rt ;FORCE RELOCATION THRU PAR 
BSee a3 ae 137. 903176 172354 MOV SAVPAR Sek IPARG IN T PARS 
BeEe 10321 rere on a4 BS170)24SR tL RN ORD INT TO. BUFFER 
8569 037774 0057 ‘ TST RY’ *SEE WHICH DATA 


er ae et 057732 Bs: ins eS . erie te Henares RVING DATA 

7 100010 BPL =s«108 

8574 40018 a2701 o20000 Bit #8113, Ri See IF NOVERELOM TO NEXT PAGE 

i ee or ee ate es adi 
Bb 


8s 4 10S: DEC j DECRENENT COUNTER 

B50 0040 1 i 057732 ou eS, eth IF ree ne 
ay 040042 ph 4 000001 177572 ; BIC #BITO,a#SRO FORN N OFF "NEN MGT 

es GS 1Bs29 alll wal ae 


- 
| 
| 
| 
| 


CZREND0 RKG611/06 SS VERIF 2 MACY!1 30A(1052) 10-JAN-78 12:02 PAGE 170 SEG 0169 


CZREND.P11 10-JAN-78 10:05 CMPBUF - SOFTWARE COMPARE DATA 
gg? 
gss8 ss RKEKRKKRKKRKARRREKRRRRRRKRE RRA RAR KRARA RRR RAREKRK A ERK RERKKRRAEEE 
8589 j RCKMENL REORN SOF THARE COMPARE OF MEMORY, WITH INCREASING 
g231 HoKMEne PERFORM SOFTWARE COMPARE OF MEMORY, WITH REPEATED DATA WORD 
8533 i# OTH ROUTINES REQUIRE MEM ADRS IN PMA, PMA+2, AND WORD COUNT MUST BE 
Beer 4 4 1049407 jp Seeeetecnseguensnannpeunensenenscogengeegensanasenvenssenanenen ‘ 
gea9 b4o056 o0S004 * CLR RY :R4=0 INDICATES CKMEM1 
8598 0060 012703 000001 MOV #1,R3 :INIT DATA TO 1 
8599 0064 o0040 BR CKAO :PR 
8600 10440 CKMEM2: SAVREG ; SAVE RO-RS 
8601 0070 012704 177777 OV #-1,R4 ?R4=177777_ INDICATES CKMEM2 
86 0074 013702 SS64 CKMO: MOV WOSKFR, Re :GET NO. OF WORDS 
Be03 0100 013 5604 MOV PMA, R1 :GET MEM ADRS 
86 104 b05037 005534 CLR SCRACH 
Beos 110 112 000040 064176 MOVB #40,0H701+38.  ;RESTORE ERROR MSG PARAMS 
8606 O401i16 2737 o00007 o655S2 MOV a7, OF25+2 
8607 1 737 043720 JSR PC’ REPSUP ;STORE PREV CMND FOR POSS. PRINT 
BeOS B4Ot 5: Piqaihdens Gr phat bare enor "Or 
8610 040136 by ray 160000 BIC #160000, R1 :FORCE RELOCATION THRU PARG 
8611 142 Bes 140000 BIS #149990 Ri 
Bole O40 146 7 003176 172354 MOV r) aakI ; INIT PARG 
861 1S4 - 900001 177572 BIS agiTO daSRO > TURN ON MEM MGT 
seis fotes Gote74 ee: ee a ee 
Bele ;COMPARE ERROR hed, cp . 
8617 O40166 010237 o01202 MOV R2, SREGIO ;GET WORD NO. 
8618 040172 63737 005564 001202 SUB WOSXFR, SREG1O 
8619 040200 3737 1202 72 MOV SREGIO‘LASTWC ;GET 2’S COMP OF WORD NO. 
Bbe0 Of 04737 36072 JSR ec PC, FINAOR j COMPUTE ACTUR. PACK ADRS 
B53 p515 bi 7 ooss MOV FINCYL,RO ?GET CYL - 
8623 Ce 113701 0055 MOVB FINTRK.RI1 ?GET TRACK 
8624 Oe 137 005571 MOVB FINSEC: Re :GET SECTOR 
Bees 02 7 JSP es PC, BDSRCK jSEE IF THIS, SECTOR LISTED BAD 
BE59 349 001000 005474 BIT WBADSEC,RECODE ” 
6628 45 BNE ;BR_IF LISTED- DON’T REPORT ERROR 
5556 o a 057732 Tot $KT11 SEE F MEM MGT 
8631 4 37 064176 CLRB DH701+38.  BOJUST TA HEADER FOR MSG 
Bb3e 737 O0000S osssse MOV #5, OF25+2 ;ADJ. ERROR DATA WORD COUNT 
86 70 7 72354 O01216 Bs MOV ASKIPARS,SREGIG ;SET PAR FOR PRINTOUT 
Bese 76 008737 boeesy 95: rst SCRACH ° i SEE IF FIRST ERROR. IN THIS BLOCK 
Be? puos9 105737 003143 TsTe UBMPRS :SEE IF UNIBUS MAP PRESENT 
8639 0312 O1a7a> 005262 001174 MOV CRMPHO, SREGS :CURRENT UB MAP REG O 
8640 040320 013737 O0S260 001176 MOV CRMPLO; $REGS 
8641 O40326 104116 ERROR 116 ;DATA MISCOMPARE (11/70) 





CZR6ND0 RK611/06 SS VERIF 2 MACY11 309¢1052) 10-JAN-78 
| CZR6ND.P11 10-JAN-78 10:05 SOFTWARE COMPARE DATA 
| ge4#e 104117 ERROR 117 
Be43 1 BR 118 
44 17S: ERROR 

864S 77777 (001174 118: MOV #-1, SREGS 
Bb46 1176 CLR REGS 
864 1200 CLR G7 
86 goss34 10S: INC SCRACH 
Be : 1 140552 BIT #81TO, ISWR 
86 1 37 oo0012 o0ss34 che #10. ,SCRACH 
Bb i5 001174 OOSS6E 12S: CHP GS, FINCYL 
86 i 4910 001176 005570 CMPB Gb, FINTRK 
Bb56 001004 BNE 
Bb 1e3? 001200 005571 cHPB §REG7 , F INSEC 
865 oo ca OOSSEE 001174 14S: MOV PIRCYL, SREGS 
113737 005570 001176 MOVB EINTRR. ’ SRE 
866 113737 005571 001200 MOVE FINSEC; SREG 
115 ERROR Ls 
001202 1SS: NEG G10 
8664 1 MOV R3 G11 
1 001206 MOV -2t 1), $PEGLe 
1 001212 MOV G10; 14 
866 1210 CLR G13 
8668 1 1éle ROL G14 
Bobs 1 16 ROL G13 
86 0u1212 ADD G14 
BE? poseoe nn he 
8 001210 ADD PMA+2, SREG13 
86 10137 1214 MOV R1, SREGIS 
Bb74 1 ite 001214 SUB we, SREGIS 
75 ERROR 6 
867% 000100 140362 BIT #8176, ISWR 
Be 1022 BNE 2 
78 “PROCEED WITH C ISONS 
8679 905704 les: TST RY 
8680 1001 BNE 18$ 
8681 INC R3 
Bb8e 005737 057732 18S: TST $KT11 
10 BPL 
8684 1 oz20000 BIT #81T13,R1 
BeBe 4 o00200 172354 saa $050 asKIPARG 
8687 042701 BIC #61T13,R1 
Be89 rt me ee 
8690 000137 040162 IMP 6 
8631 005737 057732 21S: Tst $kT11 
Beas 04 oo? 000001 177572 BIC #BITO, a#SRO 
8694 104410 228: RESREG 
8635 000267 RTS PC 


Re 
8 








B14 


12:02 PAGE 171 


; TYPE HEADING FOR ERROR MSG 
;INIT CYL NO. 


; INCREMENT THE ERROR COUNT 
SEE IF RRORS SHOULD BE REPORTED 
;BR_TO REPORT ALL ERRORS 

; Fl RRORS YET 

; CIMT? EXCEEDED 

i SEE appre CYL 


ieee IF YES newt TRACK 

;SEE iF ‘5 Eee abs SECTOR 

1 ee NEW PACK ADR PP OR BR PRINTOUT 
; TYPE NEW PACK ADRS 

;GET WORD NO. 


: BAD DATA 
;COMPUTE PHYSICAL ADDRESS 


;GET VIRT ADRS FOR PRINTOUT 


; TYPE GOOD AND BAD DATA 
gee IF Jy A 1 ERROR SHOULD BE REPORTED 


;SEE WHICH DATA DESIRED 
; IF NOT SNCRERSING DATA 
; eRe NT ie DATA WORD 


OMPAR 
INUE COMPARING WORDS 
MGT PRESENT 


fr gl west SS VERIF 2 


“ee 10-JAN-78 10:05 
fe 040644 013765 005660 
eres 06S2 11376 o0o0SS06 

7p Bibeee Abaces DoSpEs 
8200 
Bree ines RLases 
8703 04071 005737 000170 
719 GMGrié Ole 
Brig Gaara Beever GO8000 
8714 0742 oosSé02 
871S 040746 000207 
8716 
8717 
e713 
eri 
1434 
ergs 
87, 
87 
8726 
Ber 
has ae 737 74 
Bra, aaron jocoe Boies 
B733 ONGreN Ol0S37 O41G0e 
ers Gildas Quango 

1 047154 

8738 1010 37 003123 
ee Bis Hake 
Brie Ml ee 
8744, py iest pp1378 160000 
Brie GHibss boot! 
Lig O4 OND 000761 
Brie Guide O12737 00008 
8751 
87Se2 
8753 


C14 


MACY11 30A( 1052) them J PAGE 172 
CMPBUF - SOFTWARE ComPARE DATA 


5, 36-06-06 a6 SE 0 a 6 a 9 a a a a a a a a a a a a a 
#SETUPM - SUBROUTINE TO INIT PARAMS FOR NPR/MEMORY TESTS. 
eH i ee PCE es cant eee 


oooo02 SETUPM: MOV FC,P.CYLN( 


; 

8 

Q 
as, TOY GetigeP-cxuncrs» ar 

BR 

3L. 


iter Pat, SHOULD BE SCALED DOWN 


bacteg 
gee NDER 

Groen AbbRESS BE OVERLAYED 
Be a vee" ieee SAVE LOADER 


rn 
BLE 


; RETURN 


EERE EEE R EERE ERR REET TEER E EE ENS h SUDSTSTEN COMED, WHILE 


th RFORMS A SUBSYSTEM WHILE 
; Ly he A NON-EXISTENT MEMORY CATION {760900 . THIS 
+#1 OR Es caus NG UNTBUS CO DUR 15K 
i S SI IE : e NACH NEM TIME-OUT. 
PARAMETER rarer GER ’ eC BRray TRY BRD Ra must TAIN aust TinIng. CONSTANT 
pote REG ATES THE FREQUENCY OF NEM REFERENCES, WHILE WAITING F 
Msi na shee aioe ton fic) i ieee Oe 
258, TLOUT Stes 8 S3C) OR #2) KBD INPUT 
55h p 5 ., aro E PREV Boke CURRENT COMMANDS 
MOV RS/4S ser Te AM BLK 
ooo0004 MOV #20$, J#ERRVEC T TIME-OUT VECTOR ADDRESS 
J PC,C: INIT ALL DRIVER 
4S: BORD 
65: 3s PC,W.WTCH oes. WATCH DOG 
TSTB DONE : SET ? 
BNE 26S ; F YES 
MOV R3,R4 ;GET COPY OF R3 
BEQ 128 ?BR IF TIMER = 0 
10S: DEC R4 ?DECREMENT TIMER 
BNE 10$ *BR IF NOT DONE TIMING 
12S: TST #160000 :REFERENCE NON-EXISTENT MEMORY 
ERROR 1 :"NO NEM WHEN EXPECTED” 
20S: CMP (SP)+, (SP)+ sRESTORE THE S 
225: BR Beer WAITING FoR’ COMMAND COMPLETION 
000004 265: nov 8G, QNERRVEC rR TORE TIME-OUT VECTOR 


5p HERE HE EE EE HE HE HE HE HE EE EE EE RARER ERE REE REE EE 


SEQ 0171 


ptt Wh eae ss Mt 


CZREND.P 10-JAN-78 
87S4 
85287 o0410Se 104407 
8757 041054 0OO0S001 
ree Suldes Sbisae OP 
1064 1 
8761 1 1 
eves igs a 
a 1074 Fob 
g 10 1 
7 ll ooS600 
876 ll 00S6 
8768 041110 060137 O0S602 
8763S 041114 104410 
8770 041116 000207 
877 
877, 
8773 
8774 
6776 
77) 
7 
8778 
e779 fe 
8783 
B78 ib 
7 1403 
ere es: 
o 1 1 oo 
g7 Bieres pnvers 
8792 003140 


= 


043720 


ibsee Bitoes 
anise 


eee 
RBS 


— 
RSS 


RES RR PR AERO RGN INP TOSR SRDS 


000023 
041364 
7 003140 


bb bb db 


PEPPPEPIFELIELIPELILILE CLE LEE LE 


vm 
-_ 
tf 
-00 





MACY11 30A( 1052) 
CMPBUF 





oooo04 


000010 


003046 


D14 


10-JAN-78 12:02 PAGE 173 
= SOFTWARE COMPARE DATA 


;*#INCRMA - INCREMENT MA BY WORD COUNT IN P.WC(RS). 
TTT yt a alaelaiailelaiiabt ta" taalaallalelaielaielaeiaeilaieiael 


SEQ 0172 


tAcRMA : SAVREG . ;SAVE RO-RS 
MOV P,WC(RS),RO ;GET COUNT 
BNE 4g Ge IF NOT Oe E36 «DEC? 
INC R1 :SET HI BIT 
BR 6$ CONTINUE 
4g NEG RO ; 


GET TRUE, WORD. COUNT 
a OUBLE THE WORD COUNT TO GET BYTES 
ROL Ri Fes: 


ADD RO,MA ;ADD IT TO COMPUTE NEW MA 

ADC 42 

ADD R1,MA+2 * 
RESREG ;RESTORE RO-RS \ 
RTS PC ; RETURN 


+ 9 SE 36 SE SE 06 HE HE HE HE HE HE HE HE HE HE HE HHH HH ERR RRR 
; ARE SF _- READ FACTORY BSF INTO BSFACT, AND READ SOFTWARE BSF ' 


POETS TTT TTT tii itt ttt titi ttitttitittitititi titi ii eririere rs Sf 


Bice #8: EAT B- FSA er ra €59R FMT 
MOV Ls C me om “EYLNCRS bgp YL = eet \ 
MY. | oR S57 ah Bsr SECTOR LIMIT ’ 


mov, BAR aa 
BEQ BS ;BR_IF 22 SECTORS 
IN B Swwpese :SET STARTING FACTORY BSF SECTOR NO. 
6S: nov =d00,P. RS) -SET WORD COUNT FOR 1 1 SECTOR 
cs. BBY BREED: RPE Bl ERO 08 peso 
e 
tee Eee se SE PRY ERRORS 
oo dBte.secring) ferely Mex 
che FCPS : CPF gritt EXCEEDED YET 
10S: JSR PC ,REPSUP > GAT R STATUS FOR FOR PRINTOUT 
mp 7 TP ABET CAN'T 
12S: MOV ESSOFT P.BALOCRS) {SET BA TSPROCEED ae RECORD 
MOVB = RB P. SECT(RS set ST TING SECTOR NO. 
a eee 20 or 
MOV #19. SET 20 SECTOR LIMIT 
14S: MOV a0stto, A. ABNL , be T ERROR HANDLER FOR BSF READ 
CLRB WCEF ;INIT THE ERROR FLAG 


CZR6ND0_RK611/06 SS VERIF 2 


CZREND.P11 10-JAN-78 10:05 
8810 1 7 o4esS4e 
Beg 041330 106737 003140 

 BBl 1336 0b78 

«BIS BAIS. ee76 gonone 

«Bi Biase aes 
gets 1326 1 238 044200 
geig 041362 000207 
bei 
BESS 1364 032765 130600 
88e3 1363 00100e 
peed 1374 000137 oO4%4200 

1400 105237 003140 
esse 041404 000137 046356 
882 
eseg 
8829 
8830 
8831 
ee 
883 
8834 
Base 1410 04407 
Be Bile FERS omen 
8839 041420 104401 011164 
8840 1424 ifeahi Ollell 
884 1430 104401 Resets 
es4 1434 O44O1 1315S 
e@8y Ria 
BBYY 144, 1 
es4s 041444 
Baie Give Goe70L 

1 10 
Bae Gives 1ONN0L 011291 
g8so tues PS 
8854 1474 71003 
eess ie 1 3 
esse 41803 Oo0s03 
eee MIEN 1OsNGs 

1 1 1 013313 
8860 1S1 acre 
6861 ifte ‘ Gace 
Bees py t238 10440 001315 
8864 0415e4 00572 
6886S O41S26 0O00S201 


ooo0004 


003046 


000034 


MACY11 30A(10S2) 10-JAN-78 2: PAGE 174 

CMPBUF - SOFTWARE C DATA 
ISR PC, DRVCAL ;READ THE SOFTWARE BSF 
rSr8 WCEFLG i SEE IF PNY ERRORS 
ADD #o p.SECT (RS) CHECK NEXT T SECTOR 
CMPB P.SECT(RS),R3 ;SEE IF LIMIT EXCEEDED YET 
BLE 14g :BR IF NOT YET po 

16S: MOV #ERRHOL , A. ABNL TRECTORE ERROR ANRNDCER ADRS 
RTS PC ; RETURN 

;*THIS IS THE DRIVER RETURN WHICH IS USED TO HANDLE 

*#POSSIBLE ERRORS IN READING BAD SECTORS. 

&DSCHD: BIT SBSE!HVRC!DTE! OPI! OCK,P aERCRS) ehaon fe IF ANY READ ERRORS 
one ERRHD iB 10 8, BEBO ERAS 

4S: INCB WCEFLG :SET ERROR FLAG 
IMP T :TAKE NORMAL DRIVER RETURN 


iiTyease = TYPE FACTORY ANO SOFTHBRE BAD SECTOR FILES (BSF'S) 


HA a CYLINDER OR FILES ( 
iat Hier Macbh 


R, OFRACK CF ACH 
TELY, INA ee ene BF TAL Ro} OF EA Boe Path OF OF THE 
ET ERI 5, MprpaMENOR 


ae 
CLR cs ILE INDICATOR 
MOV ACT+10,RO para A IN FACTORY BSF 
TYPE . TBS 2 
TYPE * BOSEC :T OR TOR - 
3S: TYPE ’ DHE041 ;T “CYLNOR TRACK SECTOR” 
TYPE SCRLF 
CLR Ri ; INIT LIMIT COUNTER _ 
4S: TST (RO) > SEE IF A SECTOR LISIED HERE 
yO eee Tie FILE re envy 
’ 
BNE «14S i BEE rE NOT EMPTY 
TYPE ,NOFALS :TYPE “NONE™ 
Typ SCRLF :TYPE <CR>, <LF> 
8S: MOV (RO)+,-(SP) TA CYL NO. 
TYPOC I 
TYPE SPACE2 TYPE SEPARATORS 
V tRO), Ra ioe TRACK AND SECTOR 
CLRB R3 
. R3 ;GET THE TRACK NO. 
v R3,-(SP) 
TYPOC ; TYPE i 
YPE SPACE2 : TYP PARATORS 
vB tRO).R3 :GET SECTOR NO. 
OV R3,-(SP) 
TYPOC ;TYPE IT 
TYPE SCRLF 
TST tRO)+ ;INCR THE POINTER 
INC Ri :INCR THE COUNTER 


SEQ 0173 


CZR6ENDO_RK611/06 SS VERIF 2 
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$30 O2012e7 000176 
34 2 


SERENE 
s22229992 
cs 


NN 
[es] 


aest 


RRBIoCS 


gece 
Bee 
Be 


041646 


oossé4 


PEPELELLEPELLELLE EE 


ee ee eh he 


COrro 


EERO Ry 
Beene 
Ge 





8909 041646 012704 9d000eS 
8910 O4165e 105737 0031e5 
8911 atta, 001402 

89le O41 012704 000023 
8913 041664 005202 

8914 ait O0e0204 

8915 16 003407 

Bai8 Bi lez6 oos 

831 1674 O005e01 

8918 By i878 Oe0le7 o0000e 
8919 17 003402 

8920 041704 0050 

8921 041706 005200 


14 


MACY11 spe GSe) 10-JAN-78 12:02 PAGE 175 


SOFTWARE COMPARE DATA 


cnr Ri, #126. it IF nb maT REACHED IN THIS FILE 
14S: rst Rae E IF NOOTHe FILES TYPED YET 

INC RY oR INDICATOR FOR SOFT. FILE 

Vv #BSSOFT+10,RO ADRS OF DATA IN SOFTWARE BSF 

TYPE SOF TBS : TYPE “SOFT BAD SECTORS : 

BR 3s :GO TYPE SOFT. 
18S: RESREG *RESTORE RO-RS 

RTS PC : RETURN 


+ LEGEREKEREEEEREREERRREAERRRARRSARERRRRRRRRERREE RARE RARER ARRARHKEE 
‘kr M - TIAL XFER 


: WORDS i ON 
;*( TERMINATED BY BSE ERROR), AND STORE IT I 
ihren Savneg ene rersessbesesnsiyetigeng tes teeenaneneavens 


RtNMEM: SAV : RO-RS 
MOV P.CYLN(RS),RO GET ORIG. CYL NO. 
Move P. TREK )’Ri  $GET_TRACK NO. 
MOV P-SECT(RS)-(R2 ;SECTOR NO. 
CLR 3 Rites SECTOR COUNT TO 0 
6S: CMP P.DCYL(RS),RO ; ORIG. AND CURRENT CYLS 
BNE ?BR IF NOT EQUAL 
CMPB =P. DTS#+1(RS),R1 ;COMPARE TRACKS 
BNE ?BR IF NOT : 
CMPB =: P. DTS(RS),R2 ; COMPARE TORS 
as sia ass 1 OE TT eee RE UnTE 
JSR PC, INCRSC HIN R BREK A AORS BY BY 1 SECTOR 
12S: SWAB R3 iSonbure Z nO. oP Mattits XFERRED 
MOV R3,WOSXFR *§TO T 
RESREG :RESTORE RO-RS 
RTS PC RETURN 


pyocesqueayensoereere Lee tt at an 


? LINCRSC - INCREMENT PACK ADDRES SECTOR 
j #THE CYLINDER IS PASSED AND RETURNED IN RO, TRACK IN R1, AND SECTOR 


TC eerie eet ar tc ane tt eal 
cnees MOV ; 
TSTB PSR Saat : BEE 2 SECTOR FORMAT 


BEQ 4$ 
MOV #19.,R4 ;SET SECTOR LIMIT 
4S: INC Re ;INCR. SECT 
CMP Re,RY ; SEE F aye ren LIMIT EXCEEDED 
BLE 6$ NOT 
CLR Re ISET SECTOR = 0 
INC R1 ;INCR. TRACK “NO. 
CMP Rl, #2 ;SEE IF TRACK LIMIT EXCEEDED 
BLE 6$ ;BR_IF NOT 
CLR Rl ;SET TRACK = 0 
INC RO ;INCR. CYLINDER NO. 


SEQ 0174 


CZR6ND0_RK611/06 SS VERIF 2 MACY11 30A(10S2) _10-JAN-7! PAGE 176 
CZR6 zoe ts ppg 


ND.P11 10-JAN-78 10:05 CMPBUF - SOFTWARE Bo 
e922 041710 000207 6S: RTS PC ; RETURN 
Base 
. {ANTOMFR ~-HID-TRANSEER PARAMETER UPDATE SUBROUTINE °° °° 0 
ga59 THES SUGROUTING UPDATES PMO Pee eT a TO Rete reeereR 
8930 j TERMINATE *BY A BAD SFB tbe! ERROR ( 
aos 1 1712 407 is | AenaASEnAadaabedaenenannenenen reHeNadiayenataecensenecernesece 
8435 pyieis 737 041562 JSR PC, FINMEM 3C TE NO. OF WORDS XFERRED 
17 O16 990030 MOV P. YL CRS) RQ :GET 5 
BS 17 116 9000? MO P. etit 5 Ri ger RACK NO. 
89 17 116 MO TS(RS), Re :GET SECTOR NO. 
8337 041734 004737 O41646 JSR PC, cRS Sea j INCREMENT PACK ADRS TO NEXT SECTOR 
8939 tee TiOte Boone mov R1,P. TRCK it é Tr TRACK 
Sau? Batzeq At ReeerY iov ReaceR g : WORDS XFERRED 
e942 041760 000400 DD #40 > SKIP BAD SECTOR 
8943 O41 § o000i2 E R3,P.WCCRS) i UPDATE P.WC(RS) 
Baud Bt LR RY BYTES XFERRED 
8946 1774 0061 ROL RY 
Baus ADD RY, PMA+2 
esi Bu5086 813708 a 000010 mov prise: Reno" *>? ;UPDATE P.BALO(RS) 
? ie BIC #177774, RO 
8953 042030 150065 000007 BISB RO,P.BAHI(RS)  ;UPDATE P -BAHI(RS) 
g9s4 piepag 737 057732 r r sktii ‘SEE IF MEM 
4 37 031646 ISR PC, PREPAR ;UPDATE MEM MGT AND UNIBUS MAP 
8957 O42046 104410 : R G T RO-R’ 
B958 o420S0 000207 oan ReeRe PC Ret lone _— 
ct 
B3ee {Levenns = SAVE INITIAL PARAMETERS FOR TRANSFER 
8964 XOYPRNE - Resort SA 
8965S O44 é i Seasaunenneunenatnassarseeseiausaesaseeseexennennenneneesesaes 
8365 pds beg bi37 0026 MOV #PARMO+2, RO i BARE PARAMS 
8968 Ou2060 O1e701 goSS&e seminal nov BSAVPRS RL = ADRS OF SAVE AR 
8358 Susee 537 Bose G foegeR>’ Aas ostfive 
8971 i o00S604 MOV #RWBUF , PMA + INI TO RWBUF 
8972 042104 37 CLR PMA+ : INIT PMA+2 TO O 
Ein tis Berar, SE a Grom ee yee oe ve 
8975 ove! 1 0137 7 O0S600 o0S5604 MOV MA, PMA :SET PMA=MA 
e278 oveles 13737 005602 005606 nov nase, PMAt2 :SET PMA+2=MA+2 


Pooe tee Oana Tee Mad PRES! 


CZREND0 RK611/06 SS VERIF 2 
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pesgesesssss 


furororu 

LW OWONOU CW 
Pee? 
furu 
NN 
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S331 gyzery 


9033 042304 
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001870 


001272 


MACY11 


005474 


Bb8478 
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CMPBUF - SOFTWARE COMPARE DATA 


GTPRMS: SAVREG oe on i BME OF SAve AREA 
TY wPARNO+2, RI Fam “HORGS 
geo: AY PRoSS cre HR 
Dec Re SEE IF wed YET 
RESREG Bloat ho' 
RTS PC 


SUT RASE RT BERPSAN A DATA TRONGEER, AND HANDLE BAD SECTORS, IF 
is TERED. T 0 T IN 
Fes COUNTERED,. THE COMMAND HUST 25, SET_ANAHE Paget Buk. 
aeeetnandinnesassarsstaeeaenansainseassaswatnsyannaveraeracies 
4 aren gSeNE INDICATOR 


CL 
us: SR” BEE BV cat s BNAT HCE EBROR.FLEG 10 8, 
Bir aut RR,RECODE ;SEE IF WCE ERROR OCCURRED 
cs: BAY? Hab ilove ir (came 
rie i ORCR A ase ICATOR 
5o6 Bd mzoxer UD BAT BSF ERROR TO RESUME XFER 
ret Bgl cRs) Bee, F ENTIRE XFER IS COMPLETED 
6S: TST RY SEE IF ANY BSE ERRORS OCCURRED 
ee Be, TPRM Ret NAL, PARAMS OF XFER 
R VPRM jREST Ren PMA+2 
Ay $kT11 | SEE IF M wh ” PRESENT 
a, 56 B nay i Pane nEM MGT AND U.M. 
> Moe RETURN 


AStEntusensnion SECTOR Inaes ROUTI eee 


nil 5 <fOUTINE RETURNS aL af 6 BAD SECTORS FOUND I 

PECIFIC TABLE BAO SECTOR SOFTWARE OR BAD SECTOR FACTORY) 
sFOR THE CIFIC Cy LIND R_AND TRACK DESIRED. Das AND R1 MUST 
SeONTAIN T EYLINOER TRACK, RESPECTIVELY 


*THE LIST OF_BAD SECTORS IS FOUND ON THE STACK WHEN THE ROUTINE 
saTMG LIS TO THE CALLER. THE Fao ENTRY ON THE a WW Lt BE THE 


;*NUMBER OF BAD SECTORS FOUND FOR THIS CYLINDER AND T 
caeeeevasanxetaeenuargenansesassaesestieuseseNaGeaen0Sie481384 
SAT MOV Re, STMPe 
HOV R3,STMP3 
MOV (SP)+, STMPY ;STORE RETURN CONTENTS OF RY 


Shier HLS, tc, 


SEQ 0176 


CZR&NDO RK611/06 


SS VE 
CZR6ND.P11 10-JAN-7 
1 


9034 042310 011402 

9035 e3le Ol 7 

So38 6 737 

038 : ae 

39040 1 
$04 2 
| «Se ENG o518 
| is RE Beles! 
| 39048 e358 ot is 
| 9049 e372 042737 

9051 14 
RSS Bee 

9g0ss Sui0 12246 
| 390) ae 5 716 
| 3 Siete olras 
| apes Bys439 piso de 

9063 

9064 

9065 

9066 

9067 

9068 

3056 104407 

3071 012737 

9073 000000 

9074 012603 

ane 1s 

2078 

9078 

90793 000 


Aviv fpivipipipiviviviuty 
a ES RR RaAE ES 
ogne 
ave 


23 
PEPPPPPPPIIPEIIIPE LS 


IF 2 
10:05 


001264 
001000 


000010 


004224 
042274 


o424Se2 


003224 
001000 


001000 
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001264 


001302 


o424Se2 


003224 
o4e4Se2 
005474 


00S474 


SEARCH BAD SECTOR TABLES ROUTINE 
MOV (R4),R2_;GET ADDRESS OF BRD SECTOR TABLE TO SEARCH 


MOV (R4)4, STAPI ;SETUP FOR LENGTH OF BAD SECTOR TABLE 
ADD #1000; STmPt 
CLR R3 CLEAR RE R3 FOR COUNT 
ADD #10,R2 FOR POINTER TO CYLINDER ENTRY 
1$: rst (Pes i TE T Rear L ONES 
CMP RO, (Re) i TeeT IF BAD S CTOR IN PRESENT CYL 
BEQ 3$ ELSE Bune Bo 
ADD #4, Re OINTER 
CMP Re, STMPL TEST 1 If our 
Be té«é«wGs Ne 
3S: TST (R2)+ + RACK CHECK - PUT POINTER AT TRK/SEC BYTE 
MOV (Re), STMP10 ‘GET TRK/SEC WORD 
BIC #174377,STMP10 ;CLEAR ALL BUT TRACK 
CMPB STMP10+1, :CHECK IF BAD SECTOR IN THIS TRACK 
BEQ 4§ ;YES - GO PU SECTOR NUMBER ON STACK 
TST (R2)+ ELSE BUMP POINTER TO NEXT CYL WORD 
BR 1$ ; ES xT CYL 
4S: INC R3 ; BUMP BAD SE CTOR COUNT 
MOV (R2)+,-(SP) ;PUT TRK/SEC WORD ON STACK 
BIC #177760, (SP) ;CLEAR ALL T CTOR NUMBER 
BR 1 CHECK R HUMBER OF 
SS: MOV R3,-(SP) ;EXIT OF BAD 
MOV g Wpe, Re ToAs On SURO RESTORE 
MOV STMP3,R jREGIST 
SIMPY, ~(SP) T RETURN ON STACK 


tteteaeanetaenzrnaneaginisinensenenenennnee 
TTL tig Se ROUT is 
IS _ ROU 


DEUE, BUDE HUT PERROE SPRL GIGS TR PETERSEN IC Bre rn rg 
tETABLES ROUTINE sEfs THe ~B8 ~BADSE 
peIS NOT LISTED THE FL 


AND RETURNS. IF THE SECTOR 
eee ee scree eGeSSESESESSEESSESESEEANASEEAEEEEKERESEOEES 


bésRcK: Rov" #BSFACT, 1S SET TABLE TQ SEARCH 
2s: CR R4, SRHTBS ‘86 SEAREH 
18: . WORD , oe B5 ott 
HOV (SP)+,R3 ;GET_N SECTORS IF ANY 
BNE WHICH ONE 
7S: CHP §, #8SSOFT ja evitst re BTHER TABLE ALREADY SEARCHED 
MOV #BSSOFT, 1S TO THER gs FOR SEARCH 
BR 25 G6, SEAR 
3S: BIC #BADSEC , RECODE BR GAD SECTOR BIT 
4§: RESREG 
RTS PC ova 
6S: CMP (SP)+,R2 :THIS SECTOR IN T ” 
BEQ 8S *YES-GO SET BIT & EX 
DEC R3 ? DECREMENT BAD, SEC COUNT 
BNE 65 :IF NOT ZERO-CHECK NEXT ENTRY 
BR 75 ‘ELSE GO SEARCH OTHER TABLE 
8S: BIS #BADSEC,RECODE ;SET BAD SECTOR BIT 
95: DEC R3 ‘CLEAR STACK Of OTHER BAD SECTOR 


SEG 0177 


ss 


J14 
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CZR6ND.P11 10-JAN-78 10:05 BAD SECTOR CHECK ROUTINE 

9030 2534 001764 BEQ 4g ; NUMBER 

9091 042536 005726 TST (SP)+ 

303¢ 042540 000774 BR 95 ;EXIT 

3093 

20 

Spa = RKKKKKEKRERSRRRKKREKRR KARAS AAARA SAA RELARARARA RARE KAA RSL RAAAAAAAAAAFR 
8 4STTL CALL DRIVER ROUTIN 

3098 ; ENTRY JSR PC,ORVCAL 

3099 WITH RS POINTING TO PARAMETER BLOCK 

3100 { #RETURN RTS PC 

9102 i xTHIS ROUTINE INTTIA INITIATE ALS A SUBSYSTEM OPERATION BY 

9103 ALLING THE D K MUST BE SET UP 

3104 sere Fie CALL T POINT TO Bb pe’ PARAMETER 

3105 *BLOCK WHEN RINE S CALLED. 

3188 THIS RouT NE WATTS F FOR THE QPERAT ON TO BE COMPLETED. 

9108 TTING it TIMER § CALLED TO PREVENT 

3103 ae LENT “DER Wan 1 SUBSYSTEM DOES NOT T PROVIDE AN anil 

9111 Se NaG WHICH KEYS ROUTINE OO RET URRY 18 Fie et LER 

2 i ig sue é : edaewaesesueeseenensensenntneenGiaenOeHe40000H0000048 008000004 

9114 2542 104407 G i SAVE 

9115 2544 604737 O35604 ISR PC, STALL : ORM A STALL IF REQUIRED 

8116 O425S50 004737 037404 ISR PC’ CTLOUT ?CHECK FOR (tC) OR (¢2) KBD INPUT 

9117 oueD54 198037 003123 CLR CL AR F 

$118 O 105037 003136 CLR G ;CLEAR ORIVE SIEZED By OTHER PORT FLAG 

8119 042564 004737 O42622 JSR PC, STRCMD § V_ AND CURRENT COMMANDS 

9120 ; BICB #8: cor, P.CS1H(RS) ORE aR HE RKO? DRIVE TYPE BIT 

3121 : rsts TYPFAT ‘CORR NT 1pRive IS AN RKO7 

3155 : BISB #B.CDT,P. CSIH(RSS ; ;SE Hie RKO7 DRIVE TYPE BIT 

9124 oues7g gog249 os: NOP 

9125 2572 010537 o42602 MOV RS, 4S >GET PARAM. OCK ADDRESS 

9126 2576 004737 OS2604 JSR PC;C. INIT >CALL DRIVE 

gig? e602 900000 4S: . WORD :P.B. barr GOES HERE 

91 047154 65: ISR PC,W.WTCH *CALL Bos 

9129 oue619 1957 7 003123 TSTB DONE ; DONE SE 

$130 2614 1773 B 6$ :N 0-1 00P 

$9131 O42616 104410 12S: RESREG ?RESTORE RO-RS 

313¢ 042620 000207 RTS PC : YES-RE TURN 

HE 

9136 = PERK RERERRRK RRR AARKRRRRAAKARARRRAARKAREREERRASRRRRKRRARRKRRAHAKKKE 

9137 i #STRCMD - STORE PREVIOUS AND CURRENT SUBSYSTEM COMMANDS 

9138 TL age) + | Sgeugaamaemsacrocmccaae at * acacia tail: 

9139 O42622 104407 é+RCMD: SAVREG ;SAVE RO-RS 

8i40 042624 012701 o0S224 MOV #PRVCMD,R tADDR OF PREV COMMAND STORAGE 

8141 042630 012700 Oo0Se4o MOV sCOMSTR, Ra ‘ADDR OF CURRENT COMMAND STORAGE 

9142 “ ;STORE PREVIOUS COMMAND’ 

9143 O42654 012021 MOV (RO)+, (Ri) + 

8144 26 012021 M (RO)+)(R1)+ 

8914S O42640 O120e1 MOV (RO)+) (R1)+ 


cenerge ‘Veet SS VERIF 2 
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giaess pian 
003143 


13737 00S262 
13737 005260 
737 170202 
170200 


o0S240 


000377 
100000 
003126 
003126 
001174 
003126 


003126 
005474 


104407 
105237 
032737 


ee ee ee ee ee ee ae ee ee ee ee ee ee ne ae eee ee ee ee 
ODO LO ODD VEU LOS OO VOU ed OD WO LOU OD UOT EO ow = 


003130 
000040 


fo tte tas ppt te tt at tt tt at tt tt ttt hh ht et at ptt at at ee 
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001174 


005702 
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L DRIVER ROUTINE 


MOV (ROI+, (R1)+ 
MOV (Kas, (RI)+ 
MOV (RO)+, (PR1)+ 
pore UgMPRS : SEE IF uN UNIBUS MAP PRESENT 
mov CPMPHO, PRHPHO : STORE DREV U.B. MAP REG O 
mov SenAPHOO, CRIPHO ;STORE CURRENT U.B8. MAP REG O 
:STORE CURRENT C : 
4s: MOV #COMSTR,RI1 
mov (RB )+, (RI) + :RS POINTS TO DRIVER PARAM BLK 
ny tae }es 3s 
MOV (RS)+; (R1)+ 
MOV (RS5)+) (R1)4+ 
RESREG ;RESTORE RO-RS 
RTS PC RETURN 


© SG HC 3 36-26 Si HE HE SE SMe aE Se OG SE HE HE EE He a aH a a a RRR EH 


mit afou I predicate oe TAP E DRIVER WHEN NO ERROR ne 
HEDONE THAT IS TESTED IN THE DRIVER CALLING 


ae pPRE: BIG aay DOE set Tae Dow UAC 

HRNVOER,RECODE /1 EST iF 

ERRCNT i BR E 

ERRCNT HECK IF ANY ERRORS HAVE OCCURRED 
:NO - SKIP TO EXIT 


chee fee RECOVERY PRINT TEST 

es: TSTB 
BE 

ERRCRT SREGS 

lie PRIN RETRY SUCCESSFUL MESSAGE 

RRCNT INT 


OU 
1$: cLR RECODE CLEAR AR RECOVERY FLAGS 


R 
s ereseedtdeeperrieerearepeecensineneereneacecenseceanenenceneens 
-$BrTL Ty — ERROR ROUTINE 

J PC, TYPERR 


SR 
j#RETURN - RTS 


{ATHIS 5 ROUT ENE USES THE “ITEM OTRO BYTE” SSITENG? TO QeTERnie WHICH 
#ERR QO BE REPORTED. IT THEN U THE “ERROR TABLE” (SERRTB) 


fMENTRY RY. 10, DEF INE WHAT INFORMATION 1s O BE REPORTED CONCERNING 
Mi ta ee 
DRVERS ; INCR_ERROR COUNT FOR THIS DRIVE 


BIT #BITS,CS ;SEE IF DRIVE SHOULD BE DROPPED 
; IF ERROR LIMIT EXCEEDED 


SEQ 0179 


8 San oat 2 MACY11 30 OEE on Boo etnee 12:02 PAGE 181 SEQ 0180 





830888 1360S6 9S: Bry Ey W?gY 


rmrEeY Teadk® ieGr8e™* 


CZRENDO RK611/ 
CZR6ND.P11 1 8 10:05 UT INE 
9202 043026 oD0141e BEQ 9S ;BR_IF_NOT 
$203 043030 123727 003130 oo00e4 cHre ORVERS, #20. *SEE IF 20 (DEC) ERRORS EXCEEDED 
3605 43056 903130 CLRB DRVERS i LEA BR Ive TERROR COUNT 
3 1044901 011051 TYPE DROPOR 
3308 1 EQ 6S 
9210 3064 043470 IMP 20S 
9211 3070 ooS000 6S: CLR RO On RO FOR ERROR NUMBER 
gele 72 CLR RS :INIT INDENT INDICATOR 
31 74 105 COM RS 
14 90 001114 MOVB SITEMB, RO ;ENTER ERROR NUMBER 
9215 i bde500 DEC RO :FORM INDEX FOR ERROR TABLE 
$216 043104 006300 ASL RO 
518 Gali Sossop ORD 
318 i au 901400 1S ADD SSERRTB, RO FORM ADDRESS 0 OF ERROR ENTRY 
3ee) pusize 1406 BEQ 3$ _ Lene Le MAE RE ISN’T ONE 
gé 1 1 1 013277 TYPE , CRELF 
23 1 1 1 TYP *ASeSPe 
gd 1 TYP OR MESSAGE (EM) 
3587 asia Botte? P Bee 5 : { eit Fen ’T ONE 
14% 1 1 001315 TYPE , SCRLF 
9229 O431S2 104401 56 TYPE TSTMSG ;TYPE_” TEST ” 
3539 043158 Aads 001102 Vis $TSTNM, -(SP) :GET T§§7 NO. ON STACK 
9232 043164 o02 BYTE 2 +2 DIGITS 
3833 O43! 990 BYTE O :SUPPRESS LEADING ZEROS 
1 1044 013277 TYPE CRELF 
9235S 043172 2777 010000 135740 BIT SB 1T1e, AUR REPORT DESCRIPTION ONLY ? 
Se Rese ian pu Pay cee eaagsre Teen Meme 
9239 04321 {ast 06325 TYPE ; DH1O1+10 ae PREV COMMAND HEADER 
3e4) Bs 6 2701 ete MOV be BT ;SIX COMMAND VALUES 
324 1 001236 MOV #SREG26 :STARTING ADDR OF PREV CMND VALUES 
323 Ou3e3¢ Ole 30S: MOV (R2)+,-tSP) Ure Horo ON STACK 
: 401 013313 TYPE’ SPACE2 ‘TYPE SEPARATOR 
3548 oa3eu8 ; i DEC Rie ise SEE ree SALuee TYPED YET 
_ $248 04324 104401 001315 TYPE , SCRLF 
1 1 TYP *SPACE2 i INDENT 
1 TYP 2 HL : TYPE HOR FOR BA DATA 
i i 1 131 TYP CRL 
9252 043266 1 013313 TYPE *SPACE2 ; INDENT 
3¢ 2 MOV tRe)+,-(SP) 
4 44 TYPOC ; TYPE PREV. HI BA BITS 
Ss 76 104401 013313 TYPE SPACE2 
9256 043302 011246 OV tRe),-(SP) 
9257 043304 104402 TYPOC ;TYPE PREV. LO BA BITS 


a | 
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9303 
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104401 


ses 
fiat 
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013277 


001315 
010000 


013313 


013313 


001315 


0434S0 


001315 


013313 


001315 


oo000e2 
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135606 


TYPE ERROR ROUTINE 
TYPE  ,CReLF 


TYP’ 
4$: .WORD O i OH POINTER GO EOrS” HERE 
TYPE SCRLF 
CLR ; INIT i" NOTCATOR 
S$: BIT #81712, 2SUR j REPOR eScRIPT Brat ONLY ? 
MOV RO)+,R1 I 
Beg |StéABS fa "Bo HERE ARE NONE 
RS eee 
10S: nove (RO) +, R ; ? OF DATA WORDS 
TST R3 ST oA FoR THIS HEADER 
ep ls i Kept 
TST RS :SEE IF NDENT 
Me 113, £2 : NOENT 
11S: MOV atRISe+-(SP) : Mer DATA WORD ON STACK 
TYPOC ;TYPE IT 
de cere mes 
TYPE SPACE® ;TY SEPARATORS 
12$: TST 2 SEE IF <CR>,<LF> NEEDED 
BEQ 14S ; NOT 
TYPE S$CRLF :T 
14S: DE R . i 'S? 
1S$: MOV (RO)+, 16% GET NEXT DH POINTER 
rsTe &R ) E. F vp DATA FOR HOR 
T 
a id ENP RGEHE orca 
34S: COM RS eae SER edHEST™ 
BB acee 
ies: TORO 0 On SO NTER GOES HERE 
» Y RLF 
Tyre tao) 5 TYPE A PTs 
A #2, RO HINGAERENT MOF F POINTER 
B 148 F END OF BLOCK 
20S: RESREG . 


fae e NTR TER ERROR REPORTER ROUTL  eee 


SBT ONTROLLER ERROR REPORTER ROUTINE 
BuTRy: JSR PC, CONERR 
ia TURN: RTS PC 
“T ROUT THE wEQNTROLL R ERROR WO AND 
:ETHIS, RO ie APBROPRIATE Fre K611 REGISTERS ARE 


;% RETRIEV D MEROM THE RKELL AO *BLAC D IN T 


;*BLOCK. THIS IS DONE 6B — PARM O MAY NOT BE VALI 


SEQ 0181 


NN eEEOEOEEEEeEEE EEE eee 


consign 
CZREND.P 


611/ 


e 


PPP P2222? 
sees 


ratty 
REnoe 


NOL 
= 
-— jf 


22E2299999922 22299 


S33 


Wu) 
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VE 
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8 
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<= 


Rg 


0014 


RIF 2 
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005476 
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003123 


0030S2e 


0030Se2 


0030Se2 


003052 


003052 


003052 


0030Se2 


003052 


003052 


0030S2 


CONTROLLER ERROR REP 
;*AT THIS 


2:02 PAGE 183 
TER ROUTINE 


TIME. 
s eH RR: SAVREG SVE RGSS 


bbNERR: Say 
1S 8377, DONE 

INC E RCAT 
JSR C, TOPROC ;LOAD_RK 
BIT agttO,e . CONT *ERROR 0? 
BEQ ?NO-BRAN 
ERROR 
BR 7 

1S: BIT #B1T1,£.CONT ;ERROR 1? 
BEQ $ 
ERROR 65 
BR 75 

2s: IT #B81T2,£.CONT ;ERROR 2? 
BEQ :NO-BRANCH 
i 18 DRNAFG 


INCB REISSU 


1SS: ERROR 6 


BR ? 
3$: BIT #8173, E.CONT ;ERROR 3? 
EQ 4 
ERROR 
BR $ 
4$: BIT #BIT4,E.CONT ;ERROR 4? 
BEQ $ 
ERROR 0 
BR 7§ 
S$: BIT #6ITS,E.CONT s ERROR 5? 
BEQ 6$ 
ERROR 71 
BR 7$ 
6$: BIT #B1°S8,E£.CONT 
BEQ as 
ERROR 72 
as: BIT #81T9,£.CONT 
BEQ 3g 
ERROR 73 
9$: BIT #B8IT10,E.CONT 
Q Os 
ERROR 4 
10S: BIT #81715, E.CONT 
BEQ ll 
ERROR 
11S: ERROR 7 
7$: CLR . CONT 
IMP GNR 
3% * 
- SarTL HIS ROUT IN AL tre INE AR R 
anor TO feet ine £0 Ere bhel™ Regis] TERS 
iit NCLUDED IN THE REP 


SAVREG 
CLR ERRCOM 


CH 
;CLEAR CONT DID NOT CLEAR ERROR 


HTNGREMENT E ERROR _COUNT 


REGS INTO SREGS 


; NO-BRANCH 
;NO ATTENTION IN ATTENTION SUM REG 


; SEE IF Barve WAS SIEZED BY OTHER PORT 


iSET F ne. TO RE-ISSUE COMMAND 


;UNSOLICITED ATTENTION 


}NO-BRANCH 
;UNEXPECTED DATA TYPE ERROR 


;NO-BRANCH 
;ATTENTION DID NOT RESET WITH CLEAR 


0-- BRANCH 
: Stasys CLEAR DIDN’T CLEAR DRIVE ATTENTION 


;ORIVE DETECTED PARITY ERROR 


UNDER TNED OBIE. SELECT 


u ;CLEAR CONTROLLER ERROR WORD 
sxennnseeeeerseeseusseaeeneebinuanaeeettnnennnnnaneeeenennnns 
BLOCK DATA TO BE REPORTED 


FOR REPORTING. altitie a MAY 
THEY ARE LOADED AN 


;CLEAR ERROR COMMAND STORE 


;DATA LATE WHEN UNLOADING HEADER 


;CONTROLLER ERROR DURING ORIVER SERVICE 


SEQ 0182 


SEQ 0183 


REPORTING 


;STORE COMMAND START VALUES 


OR 


,ERRCOM 
(RO)+" 
(RO)+ 


B1S 
12:02 PAGE 184 

’ 

RO)+ 


t 


RO 
RS) 
K(RS) 
(RS) 
) 
RO 


YLN 
+ 
Cc 
+ 
G 


INE 
P.CMND(RS) 
#SREGO 

C¢ 
.T 
RO) 
SE 
RO) 
. WC 
#SRE 


i2 aa-avo 
&5 o. opep 
"E e88enecs8 
ay 

Z : 


IF 2 
10:05 


n...n 
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3 

T 
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DATA MAY NOT 


ee ee 
CU >- UO 
w ac 
Co a 


emf") « 
a sraocoo00 


001260 


— 


;FOR ALL REPORTS (TO BE 
;DETERMINED LATER) BUT IT IS 


+ 


STORED ANY WAY. 


+ 
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PC, ERRHOL 


PC 
;*THIS ROUTINE IS CALLED BY THE DRIVER WHEN AN ERROR IS DETECTED 


RROR ROUTINE 


«6 HE 36-06 HE AE 0 SE HE 0 AE HE 0 a A a HH HH HH EE 
BTTL REPORT E 


§ 
;% ENTRY 


mum 
uc 
rr 
oo 


#RETURN 


.% 


au 
a 


wo 
cu 
zr 
o 
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77 003123 


000400 005474 


003046 
003044 


000020 


1 


REPORT ERR 


N_THE OPERATION. 


-JAN-78 12:02 PAGE 185 4 
ROUT INE —— 


THE ROUTINE DETERMINES WHICH COMMAND WAS 


#IN 
}HBEING EXECUTED AND GENERATES THE PROPE 
PTTrreritiriiiir tt iitiiitiititititiiiitrtiiiitittittiiiri tired, 


MOV 
BIT 


ANC , A. ABNL 
SRETNML A NORM 


PC, REPSUP 


P.ER(RS) RY 
#UPE,P.CS2(RS) 


;SET DONE FLAG 


i ANRR RD LOpER? SSE" Hor 


; TEST rae e LEVEL ERROR 


NO - SKIP K CHANGE 
bose Mg erg te FOR 
;DRI ONS 


See 


py: NATURE ARE FIRST 


HeTaeeeerake TE teen, 
Siar Le: 


Dee TO LOCATE THE 


HSE FOND Ls: PRROR REGISTER 
;TEST UPE. IF UES-SET 


ERREND- Pil 10-3AN-? 


9489 


SERRRPRRRRU Sed 


: 


Pease eees eyes 
SRA DERSRSBSRRIRE 


a 


4 


pote 281 a rk 


B38 
Sor 


is 


38 a 
<£ N 
BSgee 


Bi 
aN 


S08 
oLte 
oO 
— 


RIF 2 
8 10:05 


e 


MACY11 


005474 
oco020 


00S474 
000020 
000020 


ooo0e0 
000020 


000014 


005474 
005474 


000014 


000016 


005474 


005474 
000036 


D1S 
RESORT ERROR RoUTiNe (@*OP PAGE 188 


1S: 


es: 


38S: 


3$: 


39S: 


4S: 


40S: 
41S: 


S$: 


65S: 


6S: 


7$: 


BEQ 

ERROR 
I 

BIT 


DamMmMamMoOonnonaama onmw wm 0) 
Sree pulser tet ulstulek tot ha 
3° 33) se 


i ;REPORT ERROR 
ORT , RECODE 
le erp ; TEST NON-EXISTANT MEMORY 


T, RECODE 
@NED,P.CS2(RS) ;TEST NON-EXISTANT DRIVE 
Bet, P Santee? ; TEST IF NED & UFE BOTH SET 
;NED & UFE BOTH SET ERROR 
375 ;NED ONLY 
#UFE,P.CS2(RS) ;TEST UNIT FIELD ERROR 
So PCOS iNBos IF UFE & NED BOTH SET 
;REPORT NED & UFE BOTH SET 
458 ;REPORT UFE ONLY 
#CMDTO,P.PRST(RS) ; 


S$ 
Bfuotoe RecooE =:SN0 TIMEOUT IN TIMEOUT PROC? 
4O$ TO ERROR 56 


;YES_ - SKIP 
BrgVeER coe TEST TEES Enke> 


378 
3 


38 
378 


So5 ; MAKE FULL TIMEOUT REPORT 
Se. ;TWO TIMEOUTS ERROR REPORT 

7 ; L RROR REPORT 

BPoent men es MAKE 2ND REPORT 
#ORVSZD,P.PRST(RS) ;SEE IF DRIVE SIEZED BY OTHER PORT 


i BR Ive STEED By OTHER PORT 


37S 
Seren, 7. Cescns) ;TEST D TO C PARITY ERROR 


6 
#RCLREQ, RECODE 
3 PAR, R4 ; TEST DRIVE DETECTED PARITY ERROR 


7 
#RCLREG, RECODE 
ASP SRS ; TEST AC LOW 


is 


SEQ 0185 
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9515 ooo020 000036 8S: BIT #SPOLSS,P.DS(RS) ;TEST SPEED LOSS 
eis BEQ e4s 
9$1 ERROR 11 
951 N4S674 JMP 37$ 
004000 O00016 24S: pit sere »P.CSI(RS) ;TEST FOR CONTROLLER TIMEOUT 
39Se ERROR 27 
9S2 000001 ess: Beg ere, R4 ; TEST ILLEGAL FUNCTION CODE 
gesq ROR ile 
9Se5 045674 JMP 37$ 
ges3 Oo2000 o00de0 10S: Bi 4 ite »P.CS2(RS) ;TEST PROGRAMMING ERROR 
= ERROR 13 
= 045674 JMP 378 
: 000004 11S: BIT #ILF,R4 ; TEST ILLEGAL DRIVE FUNCTION 
9$3 BEQ 1es 
ERROR 14 
045674 JMP 378 
eae : 000040 12$: Br 4 Ni »R4 ; TEST DRIVE TYPE ERROR 
' 
O44 ERROR 15 
95 045674 JMP 37S 
9S ni 000020 138: Bit a »R4 ; TEST FORMAT ERROR 
9540 720 ERROR 16 
9541 7 O4S6 JMP 378 
eu 78 004000 14S: git 3 »R4 ; TEST WRITE LOCK ERROR 
9544 7 ERROR 17 
3954S z. 045674 JMP 375 
aout 04474, 040000 15S: pit »R4 ; TEST DRIVE UNSAFE 
geq Bad ERROR 20 
9549 O44 7 o00200 005474 BIS #ABORT , RECODE 
9550 1 045774 JMP ALLTRM 
3550 720 oococe 16S: pit to »R4 ; TEST SEEK INCOMPLETE 
geey 774 ; > 004000 005474 Bis” GACLREG RECODE 
’ 
9555 Busone 139 045674 JMP 37$ 
3S Berne 001000 178: BIT #COE,RY ; TEST CYLINDER OVERFLOW 
95 1 14 BEQ 18$ 
eee 04S014 ERROR ee 
955 6 004000 005474 BIS #RCLREQ, RECODE 
4 045674 JMP 7$ 
9561 002000 18$: pit a RY ; TEST ILLEGAL CYLINDER 
5 ERROR e3 
9564 oo4000 005474 BIS #RCLREQ, RECODE 
9565S 137 045674 JMP 37$ 
4] ay BAT abe 000040 000036 19S: BIT #DROT,P.OS(RS) ;TEST ORIVE OFF TRACK 
9S6 1406 BEQ 20S 
9568 O4506e 104024 ERROR e4 
9569 045064 052737 oO4000 005474 BIS #RCLREQ, RECODE 
9570 045072 000137 O45674 JMP 375 


ee ea a a ee ee he 


| 
| 


CZREND0 RK611/06 SS Ma 2 
CZR6ND.P11 10-JAN-78 10:05 
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oe 
z 
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001202 
001204 
001206 
000000 
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F1S 
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EPORT ERROR ROUTINE 


20$: 


218: 


22S: 


Sos: 
27S: 
26S: 


28s: 
29S: 


30S: 
51S: 
318: 


323230 
oO 


BIT 
BEQ 
ero 


BIT 
BEG 
ERROR 


3 


o3n0o4 
o 


BP ree Paar 
2 


Munn 
o4Wo4 


B2B2O 40 
2 


FDOGGOMOOD 4D 
4 


22o59e 


<<<o<¢ 


ow 
Ze 
m- 


ERROR 


#OTE,RY 
21s 


es 
#ABORT , RECODE 
#OLT,P.CS2 (RS) 
2es 


378 

#OPI,R4 
#OPIERR, RECODE 
DERCNT 


7§ 
aLEV2ER, RECODE 
4 

375 

PC, BLDEXH 
atv BERL RECODE 


SHVRCER, RECODE 
DERCNT 

aL EVER, RECODE 
5 
3 § 

C, BLDEXH 
#LEV2ER, RECODE 


; TEST DRIVE TIMING ERROR 


; TEST DATA LATE 


;TEST IF OPI ERROR 


; TEST IF FIRST ERROR 


= vert REPORT 
Test IF A SECOND LEVEL 2 ERROR 
;HAS ALREADY OCCURRED 


Oe BUILD EXP CTED "HERDER 

‘6 HEADER oF SECTOR O 

; TEST IF ERROR GETTING HOR 

UF YES-GO peKe ABREVIATED REPORT 
; HEADER O_ INTO REGISTERS 
;RESET INTERRUPT ENABLE 

;FOR REPORTING 


; TEST IF ERROR DURING STORAGE 
;MAKE OPI REPORT 


;GO MAKE 2ND LEVEL REPORT 
;TEST IF HVRC ERROR 


5 Teal IF FIRST ERROR 

; YES -_REPOR 

5 TUR TO RETURN 

; TEST IF A OND LEVEL ERROR HAS ALREADY 
; OCCURRED. NO-SKIP EXIT 


;GET OUT OF ERROR REPORT 
BUILD EXPECTED HEADER 


;G0 

; TEST IF ERROR_IN GETTING HOR 

IF MAKE ABREVIATED REPORT 
;GET 61 BASE ADDRESS 

; CLEAR sot ERRUPT ENABLE 

;STORE OFF HEADER 


s TEST IN ANY ERROR _IN UNLOAD 
YES - GO MAKE SHORT REPORT 
i MAKE FULL REPORT 


a. 
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9627 gusu34 0001.37 04S674 IMP 37% 
9628 1 5 32S: ERROR 55 ;ABREVIATED HVRC_ ERROR RPORT 
3689 44 guiee0 IMP ER2ENT :GO_REPORT BND LEV L ERROR 
96 00 238: BIT #BSE, RY :TEST FOR BAD SECTOR ERROR 
9631 14 BEQ 335 :NO - SKIP 
9632 S4 005474 BIS #BSERR,RECODE ;SET ERROR FLAG 
3633 6 30 MOV p-bc Ltrs) RO ; GET cyt NO. 
36 116501 z MOVB P.OTS41(RS),R1 ;GET TRACK NO. 
96 4 77774 IC 177774, R1 i CLEAR ALL BITS EXCEPT TRACK 
1 MOV P.DTS(RS) Re : SEC N_ERROR 
963 177740 BIC 77740, Re *CLEAR ALL BITS EXCEPT SECTOR 
9638 737 042436 ISR SRCK :GO SEE IF THIS SECTOR LISTED 
1 7 001000 005474 BIT #BADSEC,RECODE TEST RESULT 
9640 045 001065 SNE 378 ?YES - EXIT, NO ERROR OR REPORT 
geue Os 43393 RROR ie iPr ee : cA 
4 2737 oo00002 005474 IC #BSERR,RECODE ; T ER LAG 
geua Buses Boo BC 100000 33S Bt tT 350k RY iGOoE*t? DATA CHECK 
° ’ ’ 
4S 40 raythees BEQ 
96 000020 005474 BIS #OCKERR, RECODE 3 SET DATA CHECK ERROR IN RECOVERY CODE 
964 000100 BIT #ECH, RY :TEST IF ECC IS ae 
964 BEQ 34S i YES T UNCORRECTABLE IN 
964 g00940 005474 BIS BECCNC,RECODE RECOVERY FLAG AND A O IN 
96 4 1206 CLR SREG1e *REGl2 TO INDICATE UNCORRECTABLE, 
3651 9 aaah Sods BR acs ass *A 1 IN REG 12 FOR CORRECTAB 
36 eyes 3S5: TSTB DERCN ; TEST IF FIRST ERROR 
3654 1 BNE 375 ?NO SKIP_REPOR 
9655 046702 JSR PC. GTPKAD *GO GET PACK ADDRESS OF ERROR 
9656 1 16 000060 001202 MOV P.EPOS(RS),SREGIO ;STORE ECC POSITION & 
9657 016 000062 001204 MOV P.EPAT(RS),S$REGI1_:PATTERN 
36 wahuns ERROR 3 . sREPORT DCK ERROR 
3660 34 e765 o4 000020 36S: BIT #WCE,P.CS2(RS) ;TEST WRITE CHECK ERROR 
OuBe pgg200 0S474 BIC #ABORT , RECODE ;CLEAR ABORT & SET WRITE 
Oi 05474 BIS #WCERR, RECOD *CHECK ERROR IN RECODE 
3664 OuSb60 1057 7 003121 rete DERCNT j TEST IF FIRST ERROR 
9666 045666 046702 ISR PC, GTPKAD $GO GET ADDRESS OF ERROR 
3667 045672 104033 ERROR 33 ‘REPORT WCE 
3 74 765 O00020 OO0014 37S: BIT #ORVHRD,P.PRST(RS) ; TEST HARD ERROR 
9670 a rege BEQ 43$ : ‘ 
9671 045704 104036 ERROR 36 
307 045706 052737 o00200 005474 BIS #ABORT , RECODE 
9674 714 765 OO0040 o00014 43S: BIT #ORVDSC,P.PRST(RS) ;TEST STATUS CHANGE NOT CLEARED 
96 pye533 5374 BEQ 44s , 
9676 045724 104037 ERROR 37 
367 045726 052737 o00200 005474 BIS #ABORT , RECODE 
96739 045734 032765 OO4000 oO00014 44S: BIT #NODSC,P.PRST(RS) ;IFST ATTENTION BUT NO FAULT OR DSC 
9680 O45742 001404 BEQ 46$ 
9681 045744 104040 ERROR 40 
9682 045746 052737 O00200 o0S474 BIS #ABORT , RECODE 


CZR6 
CZR6 


968 


9687 
9688 


N 


NNINNNNNNNNNN 


eePeeDve Dv eDve Ve Dvelvelvelvelv eles lve lve Ive lve I¥e] 
yh thee ope 
WM OWVONTU CWO 
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-Pll 
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Pte 
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WWW) 
NNNEN 


032737 


0004583 


000010 


000200 


ooa8 
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003126 
013410 
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100000 
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03044 
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ooooci 
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O46 
474 


005474 


005474 
005474 
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REPORT ERROR ROUTINE 
46S: Fed a eager ; TEST UNEXPECTED ATTENTION 
#ABORT , RECODE 


;ALL ERRORS MUST EXIT THROUGH THIS POINT 
ALLTRM: to ad RESTORE PARAMETER BLOCK SELECTION 


SERRHDC A - on RESTORE INTERRUPT Hie ANY FOR RETRY 


BIT ba RECODE :IF ABORT IS NOT SET 


MOV RK 


BAS 
BNE aS. RDS Re) tee, B. a 


ais ae SE ABORT WITH ABORT ME 
47S: BIT #RCLREQ , RECODE IE Reco TORE SS 55 ares 


BEQ B Y BY ger 
MOVB Hi A P. Pg Bock 10 
MOV ABNL 
MOV a 3R ST HORE RROR RE 
BIT oe HI RROR OCCURRED. THE 
BEQ RECAL ATTEMP SE 
. BABORT, RECODE Rech tHe ATE | gRROR TWESSAGE, AND 
RROR 60 :GO REPOR 
JMP ‘eae 
48S: ERROR 1 ; REPORT oe Nid FAILED 
CLRB ORVERS :CLR DRV ERR CNT 
CLRB ERRCNT 
JMP NEWDRV ; TEST NEXT DRV 
; THE PROGRAM WIL T_HERE IF THE ABORT FLAG HAS BEEN SET OR 
;IF THE DRIVE RE py IT IS RESET. 
HLTPRG: RESET ;OISABLE ALL DEVICES 
HAI, ;HALT THE CPU 
CLRB ERRCNT ;CLEAR ERROR COUNT 


ET ;RESET ALL DEVICES 
eid CMSTRT 


ie: FOLLOWING CODE WILL DETERMINE IF 0 AND D DATA TYPE ERRO ROR on ws 
pe ein RYT AYING OUY tne For RETRY. BAY Ogh EH BaRSk 16 10 BE 
UNSUCCESSFUL \ AFTER 4 ATTEMPTS. THE ABORT 
PE AG. Fe Hee CAND PROGRAM A 
BGNRTY: BIT sgSERR!HRCER!OP ERR! OCKERR!WCERR, RECODE ;TEST IF ANY DATA ERROR 
9$: BIS #ANYDER, RECODE 
BR 2s 


| 


5 th RK611/06 SS VERIF 2 
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aE * 
o£ £ Wisin a 
patatotototatatetat te 


ata 
2 


ae 
aaa 
PARE 


Rae 
apaeeaeas 


sees 


-_ 
oO 

£ tror 
Ne 
OMe 


000207 


Roce 
RS 


orw tf 
Mo 


POPOFOFOROrD 


eat aa) 
rurororerururur 


BESS SSoeSloc= 
ed ee ee ed eee 


woo 
Ofuru 
8 


003142 
001000 
003126 


MACY11 spa C Os"? 


005474 
003127 


001174 
008474 


000001 


177776 


sant? 


003123 


3$: 


1$: 


es: 


RETANL: 


RETNML: 
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NORTRY ;SEE IF “NO-RETRY” FLAG SET 
#BADSEC,RECODE ;TEST te BAD SECTOR FLAG SET 

$ IF YE aEx IT TO CALLER 
PRCNT,ERRLMT BEGIN RETRY IF ERROR COUNT HAS 
te :NOT BEEN EXCEEDED 

ERRCNT, SREGS ;GET ERROR RETRY COUNT 

1 j REPORT TRY UNSUCCESSFUL 

BRBORT, ,RECODE ;SET ABORT & QUIT 
RKBAS, Re T RK BASE ADDRESS 

#SUBCLR P. cunocrés” SET UP TO CLEAR SUBSYSTEM 

PC. DRVCAL 3G IT 

#COMSTR, RO :GO AND REESTABLISH THE COMMAND 
(RO)+, (RS)+ :AS_IT WAS ENTERED INTO THE 

(RO)+) (RS)+ :PARAMETER BLOCK 

(RO)+, (R5)+ 

(RO)+; (RS)+ 

(RO)+; (R5)+ 

(RO)+’ (R5)+ 

#PARMO, RS 

HPRO akPSw LOER, PR PRIORITY TO ALLOW INTERRUPT 
PC, DRVCAL 

IF be OREN GETS HERE, NO ERROR 

PC SOCCURRED, RECOVERY WAS SUCCESSFUL 


#377 , DONE ;SET DONE 
BLEVEER, RECODE :SET LEVEL TWO ERROR 
8377 , DONE ;SET DONE 


«3 3-36 36 3 a6 06 J SE ES a A a 0 a a 0 a a a a a HH HE 
Rone OUT PROCESSOR ROUTINE 
; ¥THIS ROUTINE ‘ihe ORTS THE ERROR HANDLER BY PROCESSING TIME OUT STATUS 


*#GATHERING DUT 
LJUsBEESSURSSESSsonNERSNEeERALENNEEEENNENNERENEEEEnEnEANONONS 


aBTTL 


tier 


SAVREG 


;SET UP Rl FOR RK REGISTER STORAGE 
:STORE ALL VALID RK611 
;REGISTERS 


++ 


+ehe +++ err 
a 
~ 


nAnVwrnrAre 

DR DVDADAD—— 
eA 
ww Dewees 


; THIS CODE WILL ATTEMPT TO 
;RETRIEVE THE STATUS FROM THE 


SEQ 0190 
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9735 
9796 O46446 O1g7 08 00271 
9797 O464Se 11 oe8 000141 
39738 a Be! ae o4es4e2 
97939 my th 000100 
| 
98 474 7 002000 
| Be ae ae B80040 
| es Bt 1 
Se0s GueEle Oleeei 
Se Hels Bist 
98 Rises! 
ger? Sey 1eSel 
981e 946S26 012705 002630 
9813 O4%6S32e 104410 
9814 046534 000207 
9815S 
9816 
9817 
9818 
9819 
9820 
pss e3P 1 07 
3303 bes Giesoi nnn 
gee uessg Oue700 
3507 Hesse oeeus 
Se59 S62 
9830 be 1 ORG 
9831 101 0o04 
Sexe ues7s O100es onnue 
98 4t =] 1 
9834 000000 
‘37 A aaa 
35 rls Sato 
aut Nee ah res 10025 
1 S15 SAOSER 
9843 S4Y ool 
SBY44 66 eathe 000020 
S845 4 15376 0031eS 
9846 046672 012705 
9847 ts 14 3 Minette 
SBR 46700 O00020 
9849 
98s0 
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15 
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TIME OUT PROCESSOR ROUTINE 


1$: 


;DRIVE. 
-SET UP TO USE PARMI 


#PARM1 RS M 
#ROSTAT.P.CMND(RS) ;DO READ DRIVE STATUS COMMAND 
PC, ORVC “CALL DRIVER 
aCHDTO,P.PRST(RS) TEST FOR TIMEOUT 
- 
#TWGTOS,RECODE ;SET TWO TIMEOUTS FLAG 
aP. RS :BUMP RS TO POINT TO DRIVE STATUS 
(R5)+, (R1)+ *MOVE ALL THE DRIVE STATUS INTO THE 
(R5)+) (R1)+ : TEMP REGS FOR REPORTING. 
(R5)+, (R1)+ 
(R5)+) (R1)+ 
(R5)+;(R1)+ 
(RS)+;(R1)+ 
(RS)+; (R1)+ 
(RS)+; (R1)+ 
#PARMO, RS ;RESTORE PARM O 
PC 


cs REM MRRRR GGG EEE EE RR ARERR REE ERR RAE RRR ER RRL LA RHRE 


’SBTTL READ HE 


4S: 


6S: 


ADER O ROUTINE 


HHH HH EHH HH HEE HE HE EH HE HE EE ARH ERR RE RAE KARR KEES 


ROHDO 


SAVREG 
MOV 


P.DTS(RS), 

PB10(R5) RO :GET THE CYLINDER AD 

#160017,R0 >FROM Ti IVE STATUS. CLEAR 

RO :OFF UNUSED BITS AND POSITI 

RO ;FOR_U THE DESI 

RO *CYLINDER IN THE READ 

PO ARMI.R EOS ocr P.8. 1 

Rip SECT (RS) INSERT TRk,SECT FOR READ HDR 

430 CLAP CHND(RS) -SET S. : CLEAR CMND 

PC, DRVCAL ALE } .S. 

#ROHEAD,P.CMND(RS) ; READ HEADER COMMAND 

PC. DRVCAL ;D0 AD HEADER 

#25, (Re) ; ISSUE WITH FMT BIT = 0 

#B1t7, (Re) *CHECK FOR C. READY IN CS1 

4 :BR IF NOT ROY YET 

#10025 (R2) iis RO WITH FMT BIT = 1 

se1 , tRe) ; CH CK FOR c. READY IN CS1 

#8.CFMT,P.CSIH(RS) ;CLEAR THE FORM IT 

FORMAT,P.CSIH(RS) ;RESTORE TYPE AND FMT IN U 

#PARMO; RS ;RESTORE P.B. O ADDRESS 
?RESTORE RO-RS 

PC : RETURN 


SEQ 0191 
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é 
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oo000e 
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aes 
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ata] 
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SBBBB8 S858 
=i 


Ne 
TO 


04 
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sR 
BSnas Bs 
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D HEADER O ROUTINE 


eae cee Renee Rea ee 


ABTTL GET PACK ADDRESS ROUTINE 
ae eee ey CRE) SREGE sGET CYLINOER NUMBER 
&tPpKAD: MOV P.DCYL(RS),S$REGS ;GET CYLINDER NUMBER 
CLR Gb ;CLEAR REGISTERS FOR 
CLR SREG7 : TRACK & SECTOR STORAGE 
MOVB P.DTS(RS),GREG7 :STORE THE TRACK AND SECTOR 
MOVB P. OT Stl 1(R5), SREGS 
TST SREG7 -ADJUST THE ADDRESS CONTAINED IN 
; THE RK REGISTERS FOR THE AUTOMATIC 
BEQ 1$ : INCREMENT 
DEC §REG7 
BR S$ 
1S: BIT ¥CFMT,P.CS1(RS) 
BEQ 2s 
HOV #19. , SREG7 
2s: MOV #21. ,SREG7 
35: TST SREGE 
BEQ 4 
DEC $REG6 
BR 3 
4$: MOV #2, SREGE 
DEC SREGS 
Ss: RTS PC 
8 a are rere a 
SBTTL BUILD EXP ADER 
j KUSES DES oO eyLIN TRACK AND SECTOR REGISTERS TO DETERMINE 
sa ICH R WAS EX BER LOADS EXPECTED VALUES IN SREGS, 6, AND 
TYE CO eam pagename eae 
MOV P. DCYL (RS) SREGS ;CONSTRUCT EXPECTED HOR 
MOV P.DTS(RS) Rl ;DESLRED CYLINDER 8 DESIRED. TRACK 
BIC Bipuaeo, Ri 3CL Ba ALL BUT TRA 
ASR R1 SECTOR. SHIFT Cue TRA CK 
ASR R1 S OVER TO CONFORM TO HEADER FORMAT 
ASR R1 j CHECK THE FORMAT BIT AND 
*IF SET, SET THE HEADER FORMAT 
MOV P.OTS(RS),SREG6 ; BIT. 
BIC #177740,SREG6 ;CLEAR ALL BUT SECTOR 
ADD R1, SREG6 :ADD TRACK AND SECTOR TOGETHER 
BIS #140000,S$REG6 ;INSERT BSE BITS 
BIT #CFMT,P.CS1(RS) 
BEQ 23$ 
BIS #1000, SREG6 
23S: MOV SREGS, SREG7 ;COMPUTE THE HEADER VRC 
MOV SREG6,R1 
BIC SREG6; SREG7 
BIC $REGS‘R1 
BIS R1, $REG7 
RESREG 


SEG 0192 


ceneigc RK611/06 SS VERIF 2 
CZ2R6NO.P11 10-JAN-78 10:05 


9907 O471S2 000207 
3908 


MACY11 30A(10S52) 


BUILD EXPECTED HEADER 


10-JAN-78 


RTS PC 


12:02 PAGE 194 


SEQ 0193 
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93093 
910 


wo 


DDD DD DDD 
eee 
OnNOW SWE 


Dib 
fyru 


Dib 
a 


177776 
334 003056 
737 003060 
es 003100 
7 003042 


S39 Go3ris 


re 

ae 
SPPPPPPPILLLE 
pti NNN SA 


NN NNNNNNNNNNN 


2 
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PAGE 195 
RK611/RKO6-RKO7 UNIBUS DRIVER FOR SEQUENTIAL OPERATIONS (REV. 0.10) 


.SBTTL RK611/RKO6-RKO7 UNIBUS ORIVER FOR SEQUENTIAL OPERATIONS (REV. 0.10) 


ay Fay! ‘t> men, CORP.” 1977 


; *COPYR 
iat 


#AUTHOR: "ROY opie, 


. SBTTL 


#WATCH-DOG TIMER 


+ Se 36-3 3 SE SE SE ME HE HE HE HE HE Se HE ab EH HE Sb eH He Hb HE He HH SE EHH He HE HE RRR ES 


;f 


FORO RORORC RICCI IC CAC IC HCCI HC CHC NC HNC ICE 
- 


THE an) o's MO EL iter ee a Rigg spt ae ee noe A UNIBUS 
SUBSYSTE TA 


Hae ee raga Bestar ae FOR 

PSAENPLPoes, GME ESCEUE REP ER l"PeOrPeD GAS 

ates MILL Be "estore? ED IN The Ea Device STATUS 
eect 1G BORE ER 


fhe F 
FOR QUEVED OPERATIONS THE WATCH-DOG TIMER W 
WATCH nto TO 8 OPERATIONS SIMULATEOUSLY. FOR SEQUENTIAL 
OPERATIONS ONLY ONE OPERATION WILL BE WATCHED. 


JSR PC,W.WTCH 
RETURN IF NO DRIVE ORDER EXCEEDED ITS TIME LIMIT 


MAL RETURN TO THE ROUTINE ADDRESS 


ME ION ane as de 


MBER 
OMMAND. 
TIME 


ee 


W.WTCH: 


po on THE STACK 


on STACK 
FEE 


MOV RS,-(SP) 
MOV 


a: 


hae 


pes GSarinr ae aca eg alae 
Fc 20S A Chen SERO hed SES 

MOV W.MILI,W.MTIM REINITI ALIZE MILLISECOND TIMER 
Tore W. TIME CHECK F DRIVE IS BEING TIMED 
Say RKPRI, PS :LOtK RKOG-RKO? INTERRUPTS 
MOV RKBAS, Re iO aD BASE OF RKOB-RKO? REGISTERS 
DEC Wd. DRV ECREMENT COMMAND TIME 


:RETURN IF NO TIME OUT 


SEQ 0194 


| kgretgeo RK611/06 SS VERIF 2 MACY11 mee ct 10-JAN-78 12:02 PAGE 196 SEQ 0195 


Pil 10-JAN-78 10:05 WATCH-DOG TIMER 
9965 047232 105037 003100 CLRB TIME sRESET TIMING INDICATOR 
9966 047236 b13706 003112 MOV PBLKT. RS :LOAD ADDRESS OF PARAMETER BLOCK 
9967 ere FOR NDEXING 
3368 047242 052765 000100 000014 BIS #CMDTO,P. PRST(RSS age ORMEND OuT 
| $389 047 020537 003054 CMP RS,O.WAIT DRIVER IS WAITING FOR 
9370 : a COMPLETION 
9971 047254 001002 BNE S$ bap DO NOT ALTER WAITING FOR 
3378 : COMPLETION 
9973 047256 905037 003054 CLR O.WAIT ‘CLEAR WAIT FOR COMMAND COMPLETION 
9974 047262 737 052536 S$: JSR PC, R.ABNL ‘BRANCH TO ERROR ROUTINE 
9375 047 012637 177776 20$: MOV (SP)+,PS ;RESTORE PSW 
9976 7 012602 MOV (SP)+')Re *RESTORE Re 
9977 047274 012603 MOV (SP)+;R3 :RESTORE R 
28 7 O1e6 MOV (5P)+)R4 ?RESTORE RY 
997 47 126 MOV (SP)+'RS ?RESTORE RS 
,9980 047302 9000207 RTS PC ?RETUR 


CZR6ND0 RkK611/06 
CZREND.P11 10- 


SpReeRenaE 


zs 


BBREBEEBES 
WONT U CWO 


3 


es 


t=] 


ae ee ae ee ae be ae ae Be ne be ae Be be be Be Bee en ns ne ne as ee ee be ns be 
ae 

N 

Ww 

<£ 


oo 


8 
N 
NNN 
WW) 
aa 
£ 
oOo0Cc O0000 
Saar ars 


s 
J 


rsktit 


S VERIF 2 
AN-78 10:05 


auegandes 


003036 
000010 


032737 001000 


100000 
OSeS6e2 


MACY11 30A( 1052) 
#RKO6 


003002 
00300e 


003052 


. SBTTL 


22 2 2 2 2 8 8 88 WOR HCI RC RC HCC Ce ae 


baa «CC HCC HW OC Oe 


I. INTR: 


O-JAN-78 12:02 197 


PAGE 
INTERRUPT SERVICE ROUTINE 
#RKO& INTERRUPT SERVICE ROUTINE 


} [PRRERRURSR RSS ERSRES SSeS 


THIS ROUTINE WILL SERVICE ALL RKOG INTERRUPTS. 


VING AN_INTERRUPT, THIS INE WILL 
PERFORM DHE Of THE FOLLOWING SERVICES: 


2°} aos he PeLiviatt ‘ SeazeO Be OOHREND SRN e OMPLETION 
») SE nine ¢ COMPLETION 
4.) ORIVE WAS RELEASED 


S.) am NO SERVICE 18 REQUI TED, THE COMMAND WILL BE ISSUED 


THEE LINKS ARE PROVIDED TO THE DRIVING PROGRAM. 
THEY : 


1.) A.NORM ADDRESS OF NORMAL RETURN (SUCESSFUL COMPLETION OF COMMAND) 
2.) A. Aa ADDRESS OF ABNORMAL Re TURN (UNSUCESSFUL COMPLETION OF COMMAND) 
3.) A.CONT ADDRESS OF CONTROL E' TURN 


FOR NORMAL AND ABNORMAL RETURNS, THE ADDRESS OF THE APPROPRIATE 
PARAMETER BLOCK WILL BE IN RS. 


FOR THE CONT LER ERROR RETURN, THE LOCATION E.CONT CONTAINS 
THE REASON F CONTROLLER ERROR. 
ROUTINES USED: 
Cc. ( ONLY) 
§:PuSH (QUEUED ONLY) 
Q.RMOV ( D ONLY) 
R-ORM (SEQUENTIAL ONLY) 
R:ABNL (SEQUENTIAL ONLY) 
1.cSTS 
I.STA 
I. 1SSU 
1.CCLR 


+ LELRRRGR EGER RGR EERE RRR EEEE e ERE RERERERELERRREE 


MOV RS,-(SP) ;STORE RS ON THE STACK 
MOV R4; - (SP) :STORE RY ON THE STACK 

MOV R3,-(SP) STORE RS ON THE STACK 

MOV Re, -(5P) j STORE ON THE STACK 

MOV R1,-(5P) ST Rl ON THE STACK 

MOV RO’ -(SP) :STORE RO ON THE STACK 

MOV RKBAS, Re :LOAD Re TO ADDRESS RKO& REGISTER 
MOV RKCS2tRe),T.CS2 ; STORE cse 

BIT #MDS,T.cS2 *CHECK IF MULTIPLE DRIVE SELECT 
BEQ 1S ?NO, CONTINUE PROCESSING 

BIS WE.MDS.E.CONT ;SET MULTIPLE DRIVE SELECT 

ISR PC; R. CONT :REPORT ERROR 


SEO 0196 


cgneree., PK611/06 SS 
Pil 10-JAN-78 10:05 


CZREND. 
10037 
1 


Ean | 


oe ek ee ee oe 


ee ee ee ee ee ee ee ee ee ee ee ee ee ee 


SSSaR Cre oR ban UmeReSESe 


FRUSREBSS NGAI 


N 


88888 


047354 


047526 
O47536 
o47S42 
047550 
id SY 


047564 
047570 


047572 
047576 


Mend 
b1a7es 
o0S276S 
005037 
004737 
000137 
01370S 
001002 
000137 
013704 


RIF 2 


0S1534 
003074 
003074 
003074 


0S0S16 
010400 


003002 
os 


000012 
000001 


164000 
000014 


125700 


000010 
OSeS6e 
051534 
003100 
O31 12 
3112 
010000 
003054 
0SeS 
1534 


0030S4 


oS0S16 
003002 


C16 
RACY. 208685 rd RSBY Bev dBE Rou RE a0 Gave 


003002 


003000 


003020 
003020 


003002 


003016 


003016 


003052 


000014 


1$: 


SS: 


78: 


I. 100: 


es: 


JMP I.RTRN 
TSTB TP aia 


CLRB 7; RL 
1:48 

CLRB I. ISRL 

IMP 1. ATTN 

BIT #NED!UFE,T.CS2 
eee tos0 RY 

BIC BtC< K>,R4 

8 ORVHS , 

MOV RKcoitRe),T.CS1 


MOV RKDS(R2), 7.05 


BIT #DRA, T.DS 
BNE 1.100 
BIT #DLT!WCE!UPE! NEM, T 


; RETURN 


Rg, CHECK tr ORE BWAILABLE! 
Yess Ghig BRUM cona INTE INTERRUPT 


;CLEAR FLAG 
;GO PROCESS DRIVE ATTENTIONS 


CHE ro NON-EXISTENT DRIVE OR 
NO, bart ACCESS INTERRUPT 
OR DRIVE NUMBER 


KEEP OBIE BHT BLOCK ADDRESS 


3S 
:COAD TEMPORARY CS1 FOR STATUS REPORT 
REPORT ERROR 


;STORE STATUS REGISTER FOR COMPARISON 
5 CHECK K_IF DRIVE SEIZED BY OTHER 


;NO, CONTINUE PROCESSING INTERRUPT 


;CHECK IF _ ANY DATA etnen Fcse EXISTS 


BNE 10$ 
MOV RKER(R2), T.ER 


; INDICATE ERROR 
;STORE ERROR REGISTER 


ys ae FOR DATA TRANSFER ERROR TYPE ERROR 
BIT #O0CK! OPI! WLE! COE! HVRC! BSE!ECH,T.ER 


BEQ 118 
BIS #E . UDAT,E.CONT 
ISR PC_R.CONT 

IMP 1. RTRN 

CLRB W. TIME 


W. ORV 
MOV PBLKT,RS 


BIS rons, .aSTRb) 


CLR 0. WAIT 
ISR PC, R.ABNL 
IMP 1. RTRN 


MOV O.WAIT,RS 
BNE 2s 


JMP I. ATTN 
MOV T.CS2,R4 


;NO, WAIT FOR RELEASE OF RKC6 ORIVE 
;SET UNEXPECTED DATA TYPE ERROR 
;REPORT Ei 

;RESTORE REGISTERS 


FEET TINS SATE BI nie 
eStCtG PilbeTER ar 


rls sem 6 ee 


CL mn suet T TO ron te 
30 REST noes Te 


;LOAD PARAMETER SLOCK ADDRESS INTO RS 
?IS COMMAND waa TING PROCESSING 

: YES, DO PROCESSING 

:NO, PROCESS ATTENTION 


;STORE RKCS2 FOR DRIVE NUMBER 


CZR6END0 RK611/06 SS VERIF 2 MACY11 30A(10S2) 10-JAN-78 12:02 PAGE 199 SES 0198 
CZREND.P11 10-JAN-78 10:05 #RKO& INTERRUPT SERVICE ROUTINE 


Be 047602 042704 177770 BIC #tC<DRVMSK>,R4Y ;MASK OUT UNNECESSARY BITS 
047606 126504 000000 CMPB P.DRVN(RS),R4Y : CHECK olf ORTVE NUMBER IS EXPECTED 
bose aes te Soodon AALT ™ yes " DRIVER NERROR 
0096 buseie 1 000164 o0000! 3S: CMPB #ROALHD, ,P. crm ha’ tse TE fonea bal Pas 
Base52 BBAPS> osoie4 SNE Boat GY ep BGERce 
te Beaty 10S: CLR 0. 8: bay” 12 way I FOR COMPLETION 
76 i 0031 CLRB TIME SET TIMING On THIS DRIVE 
7646 016237 000000 003000 MOV RKCST CRE) T.CS1 AND STATUS REGISTER 1 
ouzeey O3e737 100000 003000 BIT #c RR,T.CS1 ie otk a R ERROR 
Bd 2 O45 37 Bastat B8301¢ 5 B YB ANT K, (Re SOE] ait caste GARDE a NEN SET 
047700 001004 BNE E 


15$ RROR 
Barre Bodis? B81834 THe TAN Ipstcate oe isers 


047712 OSe765 000010 O00014 15S: BIS SUEXATT,P.PRST(RS) ;SET UNEXPECTED ATTENTION 


tae * {STORE BATTERN AND POSITION INFORMATION 


T.ERAC: OY ECR AE OSAKA) 5 GET Rest oF 69 CONTROLLER STATUS 
er ie Bee satis } Bat } tone E FEE POSITION 


RT 
bi? we nase. P. ae, ote WAS NON-EXISTENT DRIVE OR 


RO, I.STAT Bie one en STATUS 





SBBVERLORKSBSVER POW Oooo Fo OSVALDO HS 


ee ee ee ee be er ee be i er be ee ee ee 


ONOONOOOOOO 000000000000 
statetat=tatatetatatatatatatatatatatatetatotatatatotetatofotaatetetatetetetetetatetotetarat atom 


1. RTRN 
MOVB #OR.CLR,T.CS1 
ISR oN RO to Tesu eee ara CLEAR 
pire INTMSK,T.ASOF+1 ; yh cetet ON RESET 
BFS #E.CLAT,E.CONT ANOrs DID NOT RESET 
ISR PC,R. CONT T 
IMP 1.RTRN ingPoet CONTR ROLLER BGR eee 
4 gso04e 9327 7 O40000 003024 2s: BIT #S.DSC,7.MR2 CHECK IF OR VE STATUS CHANGE CLEARED 
42 051453 000040 000014 BFS #ORVDSC,P. nA, 2: DS ALF 
43 e737 Gbiocd Gosoce as: BIT Be. PaR, TAS cE Heo tig: FEROR. on 
46 050070 052737 oo2000 003052 BIS #E.DPAR,E.CONT ;SET DRIVE PARITY ERROR 
47 050076 004737 OS2S6e2 ISR PC-R.CONT i INDICATE CONTROLLER ERROR 
48 050102 000137 O51 IMP 1. RTRN *RETU 


AS ES anim a ce 


he & 

D 
ERresourneneess es 

ER 


Be seaaeaae 


o 
<£ 


ee ae ee ee ae ae ae ee bn ee ae ee ee ae ae ee ee ee ee ee ee ae ee ee ee ee ee 


SOFA Po BBB VRR eS Oho Oa Vou Lane aN 
euoiee) Gen Same 6 


OOOOO OOOO OOO OOOO OOOO OOOOOOOOOOO OOOO OOOOOO0O000000000 


: 
seeee 
NoLeS 


DD ee te ae ae ae ae me ae ee Pe Bs ae ee ee ae be Dee bee nse ne Pe me me bee ae eee ae ae ne Pt ne es ms ent nt Pe ss es ne et ea ns eee ns ne ne ne 
vo 


BESS 
0000 
wre 
=] 
w 
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MACY11 30A(10S2) 10-JAN-78 le: PAGE 200 SEQ 0199 
#RKO& INTERRUPT SERVICE ROUTINE 
000014 SS: BIT #ORVHRD,P.PRST(RS) ;CHECK IF HARD DRIVE ERROR 
BNE 10$ -YES. GO REPORT ERROR 
003024 BIT #S.PIP,T.MR2 * CHECK IF ORIVE IS CYCLING DOWN 
BEQ 10$ *NO, REPORT E 
000014 BIS #€.UNLD,P. PRST(RS) 4 ‘SET DRIVE UNL UNLOADING 
003100 MOVB INTMSK,W.TIME ;SET UP & SECONDS FOR DRIVE TO CYCLE UP 
003114 MOV iW. 8SEC;W. ORV 
J I. RTRN ;GO RESTORE REGISTERS 
10S: ISR PC,R.ABNL ;GO REPORT ERROR 
IMP 1. RTRN :GO RESTORE REGISTERS 


-SBTTL #READ ALL HEADERS INTERRUPT SEQUENCE 
003000 I.HDAL: MOV RKCS1(R2),T.CS1 ; STORE CS1 TO CHECK CONTROLLER 


RROR 
003000 BIT #CERR,T.CS1 ioe F CONTROLLER ERROR 
BEQ S$ CK FOR ATTENTION 
CLR O.WAIT ; CLEAR WAITING FOR COMMAND COMPLETE 
cto ORV ae tine 6 Gut count 
es ey §.C91,2.CS1(RS) iS tee! REGISTERS 
JSR RO’ FCCLA CLE (ORR ath 
FeRTRN oc R. ABNL OTR CRATE ERR URN 
IMP 1. RTRN + AEST ORE FE ERT OR ERS 
003014 S$ MOV RKASOF (R2), T. ASOF pSTore ATTENTION SUMMARY 
003015 BITB INTMSK, T. ASOF +1 CH CK IF DRIVE ATTENTION IS SET 
BEQ 7§ agit ck 4 ALL DERS 
CLR 0.WAIT ie WAITING COMMAND COMPLETION 
CLRB W. TIME :RESET TIMING ON VE 
CLR Wi. DRY if EAR TIME OUT COUNT 
IMP 1.ERRA :GO REPORT E 
7$: MOV HOR.AD,R1 ;GET MAIN MEMORY ADDRESS 
MOV RKDB(R2),(R1)+ ;GET FIRST WORD OF HEADER 
MOV RKDB(Re);(R1)+ GET SEC WORD OF HEADER 
HOY BLCHOR AD 2* ESF ORe ADDRESS FOR NEXT HEADER 
003002 MOV RKCS2(R2),T.CS2 ;ST cee F8 CHECK OR DATA LATE 
003002 BIT aOLT, T.CSe j CHECK DATA LATE 
DEC HOR. CT IDECRERERT NURBER OF HEADER YET TO READ 
BNE 25s :I = GO TSSUE NEXT READ HEADER 
CLR 0.WAIT ?CLEAR VER WAITING FOR COMMAND COMPLETION 
CLR WW. ORV ; CLEAR our COUNT FOR THIS DRIVE 
CLRB Wd. TIME *CLEAR WATCH DOG TIME ON THIS DRIV 
og0026 MOV, roa"s HR ( (RQ) | $LO8R MAINT NANCE REGISTER FOR SECTOR COLNT 
Bran Rt vHs8U" fe ia 
ooo0s6 MOV T.MR3,P.B11(RS) ;LOAD SECTOR COUNT 





F16 


CZR6ND0 RK611/06 SS VERIF 2 MACY11 30A(10S2) 10-JAN-78 12:02 PAGE 201 SEQ O200 
CZR6ND.P11 10-JAN-78 10:05 *READ ALL HEADERS INTERRUPT SEGUENCE 

102 737 ISR PC,R. NORM INDICATE NORMAL TERMINATION 

1820 pepis9 rent 7 Sece3q IMP -RTRN >RESTORE REGISTERS 

10208 016562 o00002 ess: MOV P.CYLN(RS),RKDCYL(R2) ;LOAD CYLINDER ADDRESS REGISTER 

1 0436 O1656¢ 000004 900006 MOV P.SECT(RS),RKDA(Re) ;LOAD SECTOR AND T 

10210 44 116565 000007 000017 MOVB P*CSIH(RS) P.CS141 (RS) ;STORE BITS 8-1 : Ast cS1 

1Geit oso4se 042765 165777 OO0016 BIC WiC<CDTICFAT) ,P.CSI(RS) ;CLEAR ALL BITS EXCEPT FORMAT AND 

10213 oS04%60 112765 000125 ooov16 Move #RDHEAD, P.CS1(RS) ;STORE COMMAND ISSUED 

10214 OSO466 O16 000016 000000 MOV P. CSI(RS) ,RKCS1 (RE) - ISSUE READ HE 

1921s 050474 000137 051534 MP 1. RTRN ;REST REGISTERS 

16515 ososoo os2 000400 003052 355: BIS ae. OLT.E E.CONT  ;SET DATA LATE WHILE UNLOADING HEADER 

19218 9505 004737 OSeS62 ISR CONT ; REPORT 

10e13 OSi2 oo01 051534 MP r CAF ak ;RESTORE REGISTERS 

1deel .SBTTL #*ORIVE ATTENTION SCANNER 

10223 OSOS16 016237 OO0000 003000 I.ATTN: MOV RKCS1(R2),T.CS1 ;STORE COMMAND AND STATUS 

1dee4 : REGISTER 1 FOR COMPARISON 

1 oS0S24 032737 100000 903000 BIT #CERR,T.CS1 ?CHECK IF CONTROLLER ERROR OCCURRED 

1deee 050532 001441 BEQ +} :NO, CHECK IF ATTENTION 

10228 :CHECK IF ANY DATA Tasre TYPE ERROR EXISTS 

10288 050534 032737 164000 003002 BIT #OLT!WCE!UPE!NEM, T.CS2 

10231 osos42 001007 BNE 1S ; INDICATE ERROR 

10e3¢ 050544 016237 000014 003016 MOV RKER(R2),T.ER ;STORE ERROR REGISTER 

10234 ; CHECK FOR DATA TRANSFER ERROR TYPE 

10235 950552 032737 125700 003016 BIT #OCK! OPI! WLE! COE HVRC!BSE'ECH,T.ER 

10237 OSOS60 001407 BEQ 25 ;NO DATA TRANSFER ERROR 

10239 OSO0S62 052737 o00010 on30S2 1S: BIS #E. UDAT, £. CONT T WNEXPECTED DATA TYPE ERROR 

10240 050570 004737 OS2562 ISR PC.R.CONT ae 

1Ge4y 74 000137 051534 IMP TRE TRN STORE SRE CISTERS 

10243 00 013704 003002 2s: MOV T.c CS2 FOR REGISTER NUMBER 

10244 BeoeDd 042704 177770 BIC aiScBAVHSK>, RY p SFr SUNK 

10945 050610 105037 003100 CLRB W.T CLEAR barcl UB0G TIMER 

102% 050614 0050 003114 CLR Wd. Dave RE TIMER VALUE 

10247 013705 003112 MOV PBLKT,RS STO E PARSNETER BLOCK ADDRESS IN RS 

10249 ; CLEAR DRIVE POSITIONING AND DRIVE POSITIONED FOR DATA TRANSFER 

10250 : IN PROGRAM DEVICE STATUS REGISTER 

10251 050624 o42765 O00006 000014 BIC #ORVPOS ! DRVPDT,P.PRST(RS) 

19283 050632 000137 047726 IMP 1. ERRC ;GO REPORT ERROR 

1025S 050636 032737 oO40000 o03000 SS: BIT #DI,T.CS1 ;CHECK_IF ANY DRIVE ATTENTION 

10256 O50644 001002 BNE 6S :YES, PROCESS INTERRUPT 

10257 0646 000137 051534 IMP 1.RTRN tRESTORE REGISTERS 

10259 OSO6S2 016237 OO0016 003014 6%: MOV RKASOF (R2), T.ASOF ;STORE ATTENTION SUMMARY 

10260 OS0660 105737 003015 TSTB T.ASOF+1 ;CHECK IF ANY ATTENTIONS SET 


5 tort ay RK611/06 SS VERIF 2 MACY11 30A(10S2) 10-JAN-78 12:02 PAGE 202 SEG 020i 


ZR6ND.P11 10-JAN-78 10:05 *XDRIVE ATTENTION SCANNER 
7 INTERRUPT 
ieee Oe ee Oe737 gog002 003052 Bis AE. NonT€.CONT | ry te. BTYEN Ton IN RE ENTION SUMMARY 
idee 050700 000137 peresa IMP 1. RTRN gS RES Tore ORE STSTERS 
10266 4 rite 003101 003015 73: giTe JNTMSK, T.ASOF#1 ; geet DESIRED | JNTERRUPT 
| 1 14 27 7 000004 003052 BIS wE.UATT.E.CONT j UNSOL ICATED ATTENTION 
13896 Bebsse BRdis> Beress TRE Taf an 89 REP eke REGISTERS 
: MOV P AR OCK TABLE 
18555 20536 Plesoa Bpaod0 - Move «= - PEAY ARS) Ry STORE DRIVE NUMBER 
ide? 050742 032765 o20000 000014 BIT we -UNLD, P B bReT Re) 5 CHECK IF DRIVE UNLOADING 
18878 peg7e8 Bba1 35 051434 IMP i UNLD NOE € TAR e IN POSITION AFTER ERROR 
igsr8 psares 000014 11S: 1¢ sORVPO P. ee SET OR DRIVE IVE POSITIONING | 
1 Boe Ose g50026 003000 MOVB #0R. SEL 
10281 950776 G04 7 051634 JSR ROT issu" IVE WITH ATTENTION HIGH 
1 1 1S 1. RTRN 
10283 1004 0 A 003026 oo004e2 MOV T. 28S Pp BORE) jS aaa: BYTE 00 00 {MESS B 
1 1018 7 noo200 oo00n4e BIT FLT,P ) IVE 
1 1 1401 BEO 135 Of DRIVES Status CHANGE 
| 10286 051022 BR I. ARERR oe ERROR 
10S. 1 O40 12S: MOV T.MR2,P. gAQO(RS) MAINTENANCE REGISTER 2 
idee 051032 Ba 76 Baabad alee BIT #3. 0SC, P "AOOCRS)’ jeueex Fo K mean DRIVE STATUS CHANGE — 
1DSat 05104e QSecEe oo4000 000014 BIS #NODSC,P. PRST(RSS Ber No PRO DRIVES VE STATUS CHANGE 
1de3e 051050 o00446 BR 1. AERR’ ‘phocess- ERROR 
10294 1 2737 3000 13%: MOVB HOR. CLR,T.CS1 ;LOAD C 
i 081065 6086 7 nats - J we RO,1.1SSu ;CLEAR Sie STATUS CHANGE 
1059 10 01376 4 003 MOV .ASOF, p.asoFcRsi< REO T 
10298 P1866 es Best bL B80035 BITB TATRSK? P - ASOF +1(RS} fs I NAT ON STON Res 
10299 051102 001407 BEG 1S$ YES, TINUE INTE RRUPT BROCESSING 
19300 051104 052737 oo00020 003052 BIS #E.CLAT,E.CONT {SET ATTENTION O10 NOT ESET 
10302 051112 4737 JSR PC,R.CONT 3FLAG ERR 
10303 051116 B80137 pegess MP 1. RTRM *RESTORE REGISTERS 
1B30¢ 051122 013765 003024 oo0040 15S: MOV T.MR2,P.AQO(RS) ;STORE MAINTENANCE REGISTER 2 
10306 051130 032765 o40000 900040 BIT #§.pS¢,P. AOO( RS)’; i CHECK IF ORIVE STATUS CHANGE 
10308 OS1136 001404 BEQ 16S ‘YES ae SONTINUE INTERRUPT PROCESSING 
10 1140 7 000040 000014 BIS SDRVDSC, P. PRST(RS) ATUS CHANGE DID NOT CLEAR 
19316 beriue nati BR 1. AERR Bet PRIME SIR 
1031 11 7 1 16S: LRB Wd. TIME FRE T TIMING THIS DRIVE 
teats Baitee agene? 93108 oY SERGE OAPUES Pind £00 
10314 051160 004737 OS25S50 ISR PC. R. NORM + EPORT SUCCESSFUL COMMAND COMPLETETION 
10315 051164 000563 BR 1. RTRN :RESTORE REGISTERS 
| 


a ee ae See - ee 


16 


CZR6NDO RK611/06 SS VERIF 2 MACYL1 30A(10S2) 10-JAN-78 12:02 PAGE 203 SEQ O202 
CZR6ND.P11 10-JAN-78 10:05 ATTENTION ERROR HANDLER 
10317 .SBTTL #ATTENTION ERROR HANDLER 
19313 0S1166 042765 O00004 000014 I.AERR: BIC #DRVPDT ,P.PRST(RS) {RESET POSITIONING IN PROGRESS BECAUSE 
18 J 1174 7 903 CLRB W. TIME 5a She TIMING FOR THIS DRIVE 
10353 petso4 pee foetay gté Fel P.CSICRS) TREEP COMMAND ISSUED 
DO 4 . 
1838 §21593 845583 b60536 vee teceta Bis a6 81 ane KEEP CURRENT CONTROLLER STATUS 
1 Beiss? BPa5ee tektattt leet MOV T-Cai.6- CSAC ) ee RONTR LLER REGISTERS 
10327 051234 013765 003004 gog02e mov T.WCR P-WCRCRS) 
' . o 

13388 051855 btaree 03378 efalee ney =F 8 E - ROS (a? 
10331 OSiBEN i S14 ppb se Nov 1 BSOF PCASOF CRS) 
10332 p21593 61 35ee 3016 00034 MOV T.ER,P-ER(RS) 
10333 bet 3p¢ ntact pe33ip epee: ey ROT stat THER DRIVE STATUS 
10336 O81 i st 1. RTRN te + ORROR RET UR 
1 1314 Li oo000S 003000 MOVB #OR.CLR,T.CS1 iL COMMAND 
10337 051 051634 TSR an RO,1.1SSu ; CLEAR DRIVE, ERRORS 
103 i 003101 003015 BiTB INTMSK,T.ASOF+1 }CHECK IF ATTENTION RESET 
1 1 BEQ 2 YES, FLAG IVE ERROR 
1 1 poo020 003052 BIS #E.CLAT,E.CONT :SET’ATTENTION DID NOT RESET 
1 os 737 052562 ISR PC_R.CONT :REPORT ERROR 
1 43 0513S2 137 051534 IMP 1. RTRN ?RESTORE REGISTERS 
i 45 O51 6S o00020 o00014 2s: BIT #DRVHRD,P.PRST(RS) ;CHECK IF AHARD DRIVE ERROR 
i 46 051364 017 BNE 10 >YES, REPORT ERRO 

? 051356 737 oO20000 003024 BIT #S.PIP,T.MR2 *CHECK IF DRIVE IS UNLOADING 
1 48 1374 1413 BEQ 1 NO, RE RROR 
10 1376 2765 o20000 000014 BIS #E. UNLD, P. PRST(RS) SE DRIVE UNLOADING DUE TO ERROR 
ipse1 Beiuie Of3039 BpSOey OBsttS Mm es Si MR SO 
Be bei4e5 000137 051534 IMP I.RTRN’ *RESTORE REGISTERS 
10354 o051424 004737 052536 10S: ISR PC,R.ABNL ;REPORT ERROR 
10355 051430 0137 051534 IMP 1. RTRN +RESTORE REGISTERS 
10357 .SBTTL ERROR CAUSING DRIVE TO UNLOAD 
10359 1434 0527 020000 O00014 I.UNLD: BIS #E.UNLD,P.PRST(RS) ;CLEAR DRIVE UNLOADING BECAUSE OF ERROR 
iB3e0 eaters tT8959 000005 003000 MOVB #OR.CLR’T.CS1  ;LOAD IN DRIVE CLEAR 
10361 051450 4037 051634 JSR RO, 1. 1SSu ?GO ISSUE DRIVE CLEAR 
15 He betuee retry 003101 003015 Fe INTMSK(R4) ,T asots Cc PEK iy ATTENTION CLEARED 
iB3ea p21 y28 1 EQ thee YES! HES TUE 
iesee Gelses Boarae GOQ0ED 909052 HEY RLAZAR-CONT HAE Enmgg OO NO RESET 
10362 fet2a0 000415 BR 1. RTRN *RESTORE REGISTERS 
10369 OS1S02 032737 oO40000 003024 15S: BIT #S.DSC, T.MR2 ;CHECK IF DRIVE STAUS CHANGE RESET 
10370 051510 001403 BEQ 2 *YES. CONTINUE 
10371 051512 052765 oo0040 oo0014 BIS HDRVDSC, P. PRST(RS) -SET DRIVE STAUS CHANGE DID NOT CLEAR 
10372 051520 105037 003100 208: CLRB W. TIM ;RESET TIMING ON THIS DRIVE 


CZR6ND0_RK611/06 SS VERIF 2 MACY11 30A(10S2) 10-JAN-78 12:02 PAGE 204 SEG 0203 


CZREND.P11 10-JAN-78 10:05 #ERROR CAUSING DRIVE TO UNLOAD 
10373 0S1S5e4 005037 003114 CLR W.DRV ;CLEAR_TIME COUNT 
18322 051530 004737 OSeS36 JSR PC,R.ABNL ;REPORT ERROR 
insce pelase 012600 I.RTRN: MOV (SP)+,RO ;RESTORE RO 
103 1536 O12601 MOV (SP)+,R1 ;RESTORE R1 
103 051540 Ole60e MOV (SP)+,Re2 ;RESTORE Re 
10379 051542 012603 MOV (SP5+,R3 ;RESTORE R3 
10 OSiS44 012604 MOV (SP)+,R4 ; RESTORE 
10381 OS1546 012605 MOV (SP)+,RS ;RESTORE RS 
ipees 0$1S50 000002 RTI ; RETURN 


CZR6END0 RK611/06 SS VERIF 2 MACY11 30A(10S52) 10-JAN-78 12:02 PAGE 205 SEQ 0204 


| CZROND.P11 10-JAN-78 10:05 *CONTROLLER CLEAR ROUTINE 
10384 .SBTTL #*CONTROLLER CLEAR ROUTINE 
Het 4 5 "closest amie pamaeat arctica iasaaabaa » siaiezt aisle Nitsa: cote 
10388 : THIS ROUTINE WILL BE USED BY THE DRIVER TO CLEAR THE CONTROLLER | 
10389 1 AND CHECK IF THE CONTROLLER ERRORS ARE RESET. IF THE ERROR IS NOT 
10390 1 CLEARED, THE ROUTINE AS SPECIFIED IN A.CONT WILL BE CALLED WITH 
10391 1 i =.CCLR SET IN E.C 
10392 ;* 
10393 1% REGISTER USE 
10394 [$0 eee eee see 
10395 1 i 
10396 % R2 ADDRESS OF RKOG REGISTERS 
10337 i RS ADDRESS OF PARAMETER BLOCK 
103393 >*CALL JSR RO,I.CCLR 
10400 1a <ADDRESS OF ERROR RETURN> 
eats - RETU 
ibs 2; 3 RERESLKKKRKREREKKRARRE RR EKAK RE KSR RRS RKRERAE SHREK RAAAKERAAAKRAHAKE 
1040S OS51SS2 012762 100000 OO00000 I.CCLR: MOV aCCLR RKCS1(R2) ;CLEAR CONTROLLER 
10408 051560 016237 O00000 9003000 MOV ¢Sitr2),T.cS1 j STORE COMMAND AND STATUS REGISTER 1 
10407 051566 032737 100000 003000 BIT ACERT Reda: j CHECK IF CONTROLLER CLEAR DID 
10409 051574 001407 BEQ 5g VES, RETURN TO DRIVER PROCESSING 
10410 051576 056737 000001 003052 BIS WE.CCLR,E.CONT :SET’CLEAR CONTROLLER DID NOT CLEAR ERROR 
10411 051604 0047 052562 JSR PC_R.CONT REPORT CONTROLLER ERROR 
10412 051610 011000 MOV (RO), RO :SET UP ERROR RETURN 
10413 051612 000200 RTS RO : RETURN 
10415 051614 012762 000100 ooDp000 Ss: MOV IE, QKCS1(R2)  ;SET INTERRUPT ENABLE 
10416 OSi622 112737 177777 003074 MOVB "1. ISRL :SET INTERRUPT ENABLE ISSUED 
10417 051630 005720 TST feo} ADJUST FOR NORMAL RETURN 
10418 OSi63e o00200 RTS PRETU URN 


CZ 

10419 

10420 

10421 

10422 

10423 

10424 

1042S 

10426 

10427 

10428 

10429 

10430 

10431 

10432 

10433 

10434 

10435 

10436 

10437 

10438 

104393 

10440 

10441 

1044e 

10443 

10444 

1044S 

is 

10447 051634 013746 
10448 051640 005037 
10449 OS1644 116537 
10450 etfs, 0157 
10451 O51 116 
104Se OS1666 142737 
10453 

104S4 051674 013762 
24 051706 ita? ee 
iiss Heine iBtacs 
10458 051714 0327 
10483 051722 001437 
et Birger 
1046e 051734 052737 
10463 051742 004737 
10464 051746 OO00440 
10465 

iD4E? 0S17S0 032737 
10468 051756 0010e7 
10469 Bei 7e0 032737 
10470 1766 001023 
10471 051770 032737 
10472 051776 001017 
10473 

10474 OS2000 122716 


ceReneo. apse SS VERIF 2 
REND .P 10-JAN-78 10:05 


003000 
003002 
000000 


177753 
003000 
000000 
OS2056 
100000 


001000 


100000 
O0SeSbe 


024000 
176400 
131761 


ooo00s 





MACY11 30A(10S2) 


oo0000 


003000 
003002 
003052 


003000 
003002 
003016 


K16 


10-JAN-78 12:02 PAGE 206 


*COMMAND ISSUED BY DRIVER SERVICE ROUTINE 


. SBTTL 


*#COMMAND ISSUED BY DRIVER SERVICE ROUTINE 


RM EE RARER RK ALLELE ARLE RA RARELAE ES 


ti 


CALL 


«CRC CRC CRC RC he CO ORC HOC RC RC 


t. ISsu: 


1S: 


es: 


THIS ROUTINE WILL ISSUE THE COMMAND AS SPECIFIED IN T.CS1 
AND CHECK IF A CONTROLLES ERROR OCCURRED. IF A CONTROLLER 
ae ag Fee WILL BE SET IN E.CONT AND 


L BE TURN OVER To THE ROUTINE SPECIFIED BY THE 
ADDRESS ie A. CONT. 
REGISTER USE 
Re ADDORESS OF RKOG REGISTERS 
RS ADDRESS OF PARAMETER BLOCK 
JSR I. 1SSU 


<ADDRESS POF ERROR RETURN> 
RETURN 


ROUTINES USED: 


1.CCLR 
1.STOR 
5 RERRERERAR RARER ERA E REE EERE EERE REE) REE AREER EEE EEE EERE 
MOV T.CS1,-(SP) : STORE COMMAND ISSUED 
CLR T.¢S2 CLEAR TEMPORARY cse 
MOVB P.DRVN(RS),T.C OAD IN MBER 
MOV T:¢Se2 RKese Re) : (oap vReek FOR COMMAND 
MOVB P.CSIA(RS),T.CS Att! DRE BI LTS -15 0 
BICB ##C<B.C cara, CFMT> "eGanat t in Be AR ret “BrTs. EXCEPT 
MOV T.CS1,RKCS1(R2) biscee 
rSre RKCS1 (Re) :WAIT FOR ORE ADY 
ISR PC,1.STOR ; GO_STORE REGISTERS 
BIT #CERR,T.CS1 *CHECK IF CONTROLLER ERROR OCCUERED 
BEQ :NO, RETURN 
BIT #MDS,T.CS2 5 CHECK IF MULTIPLE DRIVE SELECT 
BEQ 3N CHEC K FOR OTHER CONTROLLER ERRORS 
BIS #E.MDS,E.CONT SET MULTIPLE DRIVE SELECT FLAG 
ISR PCR. CONT ?REPORT CONTROLLER ERROR 
BR 10% : RETURN 
sCHECK IF ANY CONTROLLER ERROR IS SET 
BIT BCTO! SPAR, T .cS1 
BIT HUFE! PGE !NEM!NED!UPE!WCE!DLT,T.cS2 
BIT SILC! DTVE!FNTE! ECH!BSE! HVRC! COE! DTE! OPI!DCK, T.ER 
CMPB #DR.CLR, (SP) ;CHECK IF CLEAR DRIVE 


SEQ 0205 


L16 


CZRENDO RK611/06 SS VERIF 2 MACY11 30A(10S2) 10-JAN-78 12:02 PAGE 207 SEQ 0206 
CZR6ND.P11 10-JAN-78 10:05 *COMMAND ISSUED BY DRIVER SERVICE ROUTINE 

1 NO, N T_ DRIVE HARD ERROR 
CC te iO a ro 
18058 BesRes ‘ 10$ 00,138 REG TURN 

10479 OSe022 012762 000100 ooo000 Ss: MOV WIE ,RKCS1(R2) :SET INTERRUPT ENABLE 

18489 RRaSsR fet tko,$ eB Hst Ba" EGR NORMAL RETURN 
10482 000200 RTS 

194e4 052036 052737 001000 o030S2 7S: BIS pep $27 CONTROLLER ERROR DURING 

1 }_ ORIVER SERVICING 

10486 oS2044 004737 oOS2562 ISR PC,R.CONT : REPORT ERROR 

10487 OSe0S0 005726 10$: TST (SP)+ tADSUST STACK 

10488 O520S2 011000 MOV (RO),RO :ADJUST RO FOR ERROR RETURN 
10489 OS2054 000200 RTS RO RETURN 


M16 


CZR6NDO RK611/06 SS VERIF 2 MACY11 30A(10S2) 10-JAN-78 12:02 PAGE 208 SEQ 0207 
CZREND.P11 10-JAN-78 10:05 *STORE RK611 UNIBUS REGISTERS 

1ONey .SBTTL #STORE RK611 UNIBUS REGISTERS 

10492 5 5 SE SEE AE JE AE 0 J SE A SE 9 SE A 0 HE 


-% 

1Bu33 2% THIS SUBROUT NE IS CALLED BY THE RKO& DRIVER TO STORE ALL 
10438 i RK611 REGISTER IN TEMPORARY LOCATIONS. 
10497 > *CALL JSR PC,I.STOR 
1048 + % RETURN 

4 3# 
10500 $x REGISTER USE 
10801 Fo = a enerees --- 
18803 5 Re ADDRESS OF RK611 REGISTERS 
itu ; HEME HE HEME HE HE ME HE HE HE HE HE HE HE HE HE HE HE HE HE EE HEH HE HE HE HE EE REE RHR REAR 
{B28 OS20S6 016237 OO0000 003000 I.STOR: MOV RKCS1(R2),7.CS1 ;STORE ALL CONTROLLER REGISTERS 
10508 052364 016237 000010 993002 MoV RKCSe(Re) ,T. CSe : EXCEPT DATA BUFFER 
10203 neat Bt ES39 O93 6 MOV RKB (RS)? TBA 
10511 OS2106 016237 003010 MOV RKDA(R2),T.DA 
1081¢ Oee114 016237 500012 003 MOV RKDS (Re), T-Ds 
1051 122 O1 900014 o030i6 MOV RKER(Re).T.ER 
10514 052130 016237 000016 003014 MOV RKASOF (Re), T. ASOF 
1051S 052136 016237 oO00020 O0s012 MOV DCYL (Re): T.DC 
10516 144 Ol 50 pO3022 MOV RKMR1 (RE), T.MRI 
10312 158 16237 00 03024 MOV RKMR2 (Re), T.MRe 
10518 1 16237 O6 h03026 MOV RKMR3(Re)'’T.MRS 
10519 952166 016237 000030 003030 MOV RKECPS(Re),T.POS 
10520 056174 016237 0032 003032 MOV RKECPT(Re),T.PAT 
10521 OSee02 000207 RTS PC ; RETURN 


CZR6ENDO RK611706 ; ay 2 MACY11 30A(1052) 10-JAN-78 12:02 PAGE 209 SEG 0208 


$ 
AN- 


CZR6ND.P11 10- 10:05 *#STORE CONTROLLER STATUS 
1088 -SBTTL #STORE CONTROLLER STATUS 
past SE SE Ee SE Se SE SE SE A SE A SE SS a a 
OSe6 THIS SUBROUTINE IS CALLED BY THE RKO& DRIVER AT PRIORITY 7. 
Bees THE FOLLOWING REGISTERS WILL BE STORED: 
0Se93 COMMAND AND STATUS REGISTER 2 
BORD apoE 44 REGISTER 
REGISTER 
Seite ae TRACK AND SECTOR 
S REGISTER 
EGISTER 


ATTENTION SUP. MARY/OFFSET REGISTER 
CYLINDER ADDRESS REGISTER 


CALL JSR PC,I.CSTS 
RETURN 


THIS ROUTINE ASSUMES THE FOLLOWING REGISTERS CONTAIN: 


RRRRRRRRRRRRRARRAR 
ESeHSA ACES 


ee te te ee ee eee ee ee ee re rere rere ie fT) 


© RRR IC CRC RC RC IC RC RCI IC RRC RC RC IC RC RC IC IC iC RC aoe 


ee ee ee ee ee ee ee ee ee ee ee ee 


4s REGISTER CONTENTS 

46 

47 Re RKO& BASE ADDRESS 
Baus RS ADDRESS OF PARAMETER BLOCK 
eee 5 REE RLEEA EAA A EERE AREAL ERE RE LEEK EERE EA RE RE ERELRERERERERER 
Dees OS2e04 O4e765 177741 000016 1.csTs: BIC #177741,P.CS1(RS) CLEAR BITS EXCEPT FUNCTION 
OSS4 OS2ele O42737 000036 003000 BIC #36,T.CS1 ;CLEAR F US 
OSSS OSeee0 053765 003000 00001 BIS T.C51,P.CS1(R5) ;GENERATE Col CS1 STRrUS 5 Inronna ATION 
Gees Hise: Slcsee Game Gees Tosi Rey EU carey ETO GREG CiPaaTtegeee re - 
peee OSee42 Biese 000004 BODE MOV RKBA(Re),P.BAR(RS) sat TORE BUS He ene ALE 
0559 2 0i6e6S 000 000026 MOV RKDA(R2),P.OTS(RS) ;STORE DESIRE K_AND SECTOR 
OS66 OSeeS6 O1l6e65 0000 000036 MOV RKDS( Re), P.OS(RS) ; STORE DRIVE SrATuS REGISTER 
0561 OSee64 O16e6S 000014 O000034 MOV RKER(Re) ,P.ERCRS) ;STORE ERROR REG 
Bees OSee7e Ol16e6S 000016 000032 MOV RKASOF (R2) ,P. ASOF (RS) ; STORE Bt Tear ton SUMMARY AND 
0564 052300 016265 o00020 000030 MOV RKDCYL(R2),P.DCYL(RS) ;STORE CYLINDER ADDRESS 
RePP 0Se306 000207 RTS PC ; RETURN 


yA Veet ss Md e 
CZREND.P 10-JAN-78 10:05 
10567 
10S6 
1956 
1per0 
10572 
10273 
ipe75 
10577 
10578 
iDe73 
10581 
10S82 
1Dees 
oe 
ise 
10S88 
10S8s 
iter 
isa) 
10S93 052310 Ole7be o00001 
ie Geen Mere ponent 
ipsa feeaao bese On 
ee Geese Slee 
10608 052354 112737 900001 
iets Geea70 Oia7ee poages 
pian OS2404 Ole76e 000003 
ts gsew1e 112737 00004 
1petS pecis? 1376 003024 
IBeti HESS Bbaces 
iDP1e pSewNG 442737 goon: 
10618 OSeMEO Obese) 
19619 Oeevee Gia7be goaney 
10621 052476 032737 001000 
l106ee OS2S04 001407 


MACY11 308105 E) oA vee NTA £F 1g 162 08 PAGE 210 
#GATHER DRIVE STATUS 


oooce& I.STAT: MOV 


003000 


oooo44 
OOO4E 
00026 


003000 


S 
000026 
003000 


ooocs4 
ooo0Ss6& 


003000 


003026 


. SBTTL 


SEQ 0209 


s LELLEEA RR AERRERERRREEE RR RR AER RR RRR RERERERERELRAERRRRRREERE RHEE R 


f 


REGISTER 


ROUTINES USED: 
I. ISSU 


= WC He RC HC RCC eC HK COC WO OE De ee 


#1, RKMR1(R2) 


MOVE #OR.SEL,T.CS1 
JSR RO, 1.1SSu 
RCRA 
MOV #2, RSP BRL‘ 
MOVB #OR.SEL,T.CS1 
JSR apeiron 

MOV ,P.ALDCRS) 
MOV *p: “Bt i Re} 
MOV a Fs B10 
MOVB #OR.SEL,T.CS1 
JSR RO,I. issu’ 

MOV T.MR2,P.AL1(R 


Rex AahByeReblt* 


wee ABE al! 


3$ 

MOV T.MR2,P.A0 
MOV T.MR3.P.B0 ‘R 
BIT Be. PAR, T.M MR 
BEQ 


BYTE 0 
HAS PREVIOUSLY BEEN SEIZED. 


<AbpRESS OF ERROR RETURN> 


iGEr TAT 


THIS SUBROUTINE WILL BE USED TO GATHER DRIVE STATUS 
IT IS ASSUMED THAT THE DRIVE 
IT RUNS AT PRIORITY 7. 


THIS ROUTINE ASSUMES THE FOLLOWING REGISTERS CONTAIN: 


CONTENTS 


RKO& BASE ADDRESS 
ADDRESS OF PARAMETER BLOCK 


5 5 He RE HE RE HE ESE AE SE 9 9 9 A 2 HH HH HE HE 
; LOAD MAINTENANCE REGISTER 1 
TA BYTE O1 


FR BYTES Nl 
ATUS BYTE O1 MESS A 


eA 


STATUS BY 
ier Brg tarus BYTES 10 


BE Bag & Evie 10 hess & 


et me taTo Sr OvTE™ il 


Ger STATUS BYTES 11 


ATUS BYTE 11 MESS A 


TORE § 
URE IAHR he ? 


1,980.08 AL ENTES 00 
;ERROR R 
SiGe ELET0S BUTE QQ SESS 
D PAR de DETECTED BY DRIVE 
foe CRETURN NORMALLY 


CZR6ND0 RK611/06 SS VERIF 2 MACY 11 ayer tne be 
CZR6ND.P11 


10-JAN-78 12:02 PAGE 211 


10-JAN-78 10:05 ATHER DRIVE STATUS 


{eb2a QSSERR BRGzEr guEN_g vosNSe 
G55559 §44008 


106e8 OS25e4 OSe76S 201000 OO00014 SS: 


18eS3 B26e34 883268 


HR Be RCo ON" 


(RO) ,R 


w< 


#PBSVAL ,P.PRST(RS) 
RO>+ 


DAD Ds 
— +O 
NAW 


LADD IEA ERR PARITY OETECTED BY DRIVE 
;L08D_RO FOR ERROR RETURN 


;St.T PARAMETER BLOCK STATUS VALID 
i BpqUR RO FOR NORMAL RETURN 


SEQ 0210 


. —-- —- + - - 


EOl 


CZR6END0 _RK611/06 SS VERIF 2 MACY11 30A(10S2) 10-JAN-78 12:02 PAGE ele SEQ 0211 
CZR6ND.P11 10-JAN-78 10:05 *COMMON DRIVER RETURNS 

10635 -SBTTL #COMMON DRIVER RETURNS 

10634 36 105037 003101 R.ABNL: CLRB INTMSK s SMITTY FUTURE DRIVE_INTERRUPT REPORTING 
10635 OSeS4e 004777 130300 JSR + aaitatea ; INDICATE ABNORMAL RETURN 

10038 OSeS46 000207 RTS PC ; RETURN 

10638 SO 408 37 003101 R.NORM: CLRB INTNSK ; INHIBIT FUTURE DRIVE INTERRUPT REPORTING 
106 SY 72 = 130264 JSR PC, @A.NORM ; INDICATE NORMAL RETURN 

hat OSeS60 000207 RTS PC’ ; RETURN 

10642 OSeS6e 105037 003101 R.CONT: CLRB INTMSK ; INHIBIT FUTURE m3 INTERRUPT REPORTING 
10643 66 1050 003100 CLRB W. TIME ;RESET WATCH DOG TIMING ON THIS DRIVE 
10644 OSeS7e 005037 003114 CLR W.ORV ;CLEAR TIMING COUNT FOR THIS DRIVE 

1064S 052576 004777 130246 JSR PC, aA. CONT ; INDICATE CONTROLLER ERROR RETURN 

10646 OSe60e 000207 RTS PC ; RETURN 


CZRENDO RK611/06 SS VERIF 2 
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tt 
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Ww 
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3 


2644 
50 

S4 
O0S2660 
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a3 


oco000 
Crono 

wo 

he 


P 
RRLS0 


052702 


COrrm 
Ww 
con 


ee eee ae ee ee ee be ae ee ee ae ee ae ae Be ee ae ae ee hee ee ee ne pe Be Be Bn pe ee eb ee 
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MACY11 30A(10S2) 


10-JAN-78 12:02 PAGE 213 


*COMMAND INITATOR 


. SBTTL 


*COMMAND INITATOR 


+ RERGRE EERE GEG EERE EEE ERE REE RELA AREAY REALAAA AEA LARA ALAA EE 


tk 


eee ee 


ae SUBROUTINE WILL INITIATE ALL COMMANDS AS _ SPECIFIED 
BY THE COMMAND FIELD OF THE PARAMETER BLOCK. THE FOLLOWING 
SPECIAL COMMAND ARE ALSO EXECUTED: 


RELEASE 

CONROLLER CLEA R 

SUBSYSTEM CLEAR 

ALL DRIVE — STATUS 

READ SPECIFIED HEADER 
THE ABOVE COMMANDS ARE TRANSLATED INTO A SEQUENCE OF COMMANDS 
ISR PC,C. INIT 
‘ADDRESS OF PARAMETER BLOCK> 
FOR THE SEQUENTIAL OPERATIONS, THE DRIVER WILL LOAD THE 
LOCATIONS, PBLKT AND INTMSK 
ROUTINES USED: 


MOV RS,-(SP) ;STORE RS ON STACK 
MOV R4; -(SP) :STORE RY ON STACK 

MOV R3,-(5P) :STO 3 ON STACK 

MOV Re, -(SP) ?STORE Re ON STACK 

MOV R1,-(5P) ?STORE RI ON STACK 

MOV RO; -(5P) j STORE ON STACK 

MOV PS’-(5P) ST ON STAC 

MOV RKPRI.PS ;LOCK RKO& INTERRUPTS 

MOV 916(SP) RS ;STORE TER BLOCK ADDRESS 
ADD #2, 16(SP) : T HAE, 

MOV P.ORVN(RS) ,RY ; STORE DRIVE NUMBER 

BIC ##C<DRVMSK$ , RY MASK OUT J 

MOV RS, PBLKT ; OD PARAMETER BLOCK TABLE 
MOVB 1. ORVC(R4), INTMSK’ ;LOAD INTERRUPT 

MOVB 1.ORV(R4) WW. TIME WATCH-DOG TIHER FLAG 

MOV W:SEC,W.ORV ; LOAD WATCH-DOG TIME 

MOV RKBAS, R2 ;LOAD R2 WITH RKO& ADDRESS BASE 


RESET ALL PiTS IN EROGRAN DEVICE STATUS REGISTER EXCEPT 
WRITE FOR WRITE CHECK 
CHECK 


NO 
DROP DRIVE FROM TEST SEQUENCE 
INHIBIT BUS ADDRESS INCREMENT 


SEQ dele 


CZR6ND0 RK611/06 SS VERIF e@ 
CZR6END.P11 10-JAN-78 10:05 


10703 052706 
107 


TUDO be ee ee ee 
LWM-OWONCOULCWYO 
oO 
Wl 
ru 
% 


NNNNNNNNNNNNNNNSN 


0S2774 


052776 
733 053004 


eh 
OOOO OOO OOOO OOO0O0O00000000) 


042765 


000137 
122765 


101174 


075176 


000016 
ooo062 


003074 
000020 
000026 
000040 
053476 


000107 


000117 


000020 


000117 
ooo00e 
000004 
000115 
000006 
000032 
000111 


003066 
000113 
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000014 


000001 


000001 


000001 


000010 
000014 


000001 
oo0020 
000006 
ooo001 
000032 
000016 
ooo001 


003114 
000001 
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*COMMAND INITATOR 


18: 


38: 


S$: 


6S: 


7%: 


BIC 


BHI 


#tC<DRVUSE!W.WCK! NOCHK! DRPDRV! OTBAII> ,P.PRST(RS) 


RS,RO STORE PARAMETER BLOCK ADDRESS 
#P-CS1,RO iCal cuLave FIRS] OCATION. TO. —E CLEARED 
RS,R1 OCK Al 
#P"EPAT,R1 ;CALCULATE LAST LOCATION oot BE CLEARED 
(RO)+ ;CLEAR RETURN PARAMETER 
RO,R1 :CHECK IF FINISHED 

;NO CLEAR NEXT RETURN PARAMETER 
1. ISRL :CLEAR RELEASE OR INTERRUPT ISSUED 
RG, P.CS2(RS) j STORE DRIVE NUMBER 

RKMRi (Re) :CLEAR RKOG MAIN ENANCE | REGISTER 1 

ROTTS, P.CMND(RS)’;CHECK IF SPECIAL COMMAND 
3$ ;N0 ROCESS 
C. SPEC TO He TO SPECIAL COMMAND PROCESSOR 
#UNLOAD, P. wena K_IF POSITIONING COMMAND 

start SPIND 

IBRAT HpLE 

REE eET 

; SEEK 

: UNLOAD 
25s ;NO, DRIVE COMMAND 

: SELECT VE 

: PACK ACKNOWLEDGE 

. LEAR 


#SEEK,P.CMND(RS) ie, “PATA ATA TRANSFER 
20$ satus COMMAND 


‘z aa 

oe 
2m oD 
— 
DB 


ORVPOS, P: STREP’, se Ponte" Post 'fONING 


O.WAIT ee “te se 
SEEK, »P.CMND(RS) ee K SEEK 


P.CYLN(RS),RKDCY rR) oe ONDER "eporess 
p,SECT(RS), eae 2 i Seeracetta CTOR AND TRACK 


#OFFSET,P. amtanens ;CHECK IF OFFSET 
§ = N HECK FOR UNL OAD 
P. OFST(RS) ,P. ASOF ( ORE OFFSET 
P_ASOF(RS), ‘RiASOF (R2} ‘LOAD OFFSET REGISTER 
8s issue COMMAND 


#SRTSPL,P. crnocRs3 ;CHECK IF START SPINDLE 
z CHECK IF RECA 
DRV OAD WATCH DOG TIME FOR 1 MINUTE 
RECA P. a ocant “CHECK IF RECAL 
eb} ;NO, CONTINUE 


SEQ 0213 
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CZR6ND. 


o000 
peeleetertes) 
Sy 

_ 


be eee eee eee 
SSSSsSssse 


co Mma w mom 
TOM-OSBNOMED 


Pll 


OS3464 
053472 


053476 


012765 
000406 


buB7es 


116565 
142765 


000137 


122765 
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888007 


168777 
ooo001 


Bbo8o0 


pooode 
Boora1 
000200 
000123 


Sou200 
000007 
177750 


003054 
100000 
000020 
000020 
000400 
000100 


000016 
OS44S6 


000141 
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Bb8017 


000016 


003900 


003014 
003015 


oo0004 


000014 
000020 
000010 
000014 


000016 
oococ0 


000001 


10S: 


11S: 


158: 


20s: 


ess: 
6S: 


273: 


30S: 


. SBTTL 


C.SPEC: 
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*COMMAND INITATOR 


B: Beth ekes'e. 2 AP 5°8-is OF col 


Hove 
B 


#4C<CFMT!COT> ,P.CSIC(R 


S SEQ 0214 


L BITS EXCEPT FORMAT 


EicO S5 14 tested MG OPED Tec 
ENOCH, P. F-PAET CRS eee | tt nO Che K HOBE 


Bet 68) Bids 1 cash 


Pci (Re) ),T.CS1 : 
#RDY, T. 


“OF” INTERRUPT ENABLE 


Shere IDFR go 


Poke EbsteRS and Status REGISTER 1 


csi :WAIT FOR READ 


fee ee i SBECK FOB RROR L RETURN 


W.WTCH ALC WATC 
TMSK, T. ASOF + T_HAS CURRED 
"ie FoR ivan 


ON _THIS 
IMING 


GISTERS 


Ut onn AES oe REGISTER IS FINISHED 
= 


T REGISTER 
rican =LOAD CYLINDER ADDRESS REGISTER 


a Sick, P. pune 
#WRDATA,P. es1(Rs} 
26S 


P. CHIND (RS) P.C oe 
AST CRS) 
P.csi+it 

#tC<B. tRE) coT 


WAIT *LO 
wOtBArT, Pp. PRST(RED 


Saar P.cs2(rs) } 
~CS2(RS) RKCSE(RE) 5 


speO, SEET RITE CHECK COMMAND 


, GO IS 
;CHECK IF WR E “SORPAND SHOULD BE ISSUED 


jNO, IS THE COMMAN' 
OMMAND 


he ire YE BRITE FOR WR RITE “BRECK , 


RS) {STORE BITS gris OF 

16. BALE? AB. .BA17>.P. +$3e" +1(R ” sh car ALL BITS EXCEPT 
EORHAT Ivé T AND BUS ADDRESS 

A WAITING FOR COMMAND 

;CHECK IF INHIBIT BUS ADORESS INCREMENT 

t 


OA 
ERATE BUS ADDRESS INCREMENT 


#NOCHK,P. pas wae CK IN NO CH 


3 
#IE,P. C51. RS) 
P.CO1(R ), RKCS1.(Re) 


NO, R INTERRUPT E OF” NEATERRUPT ENABLE 


COMMA 5 
Restore n REGISTERS 


*SPECIAL COMMAND PROCESSING 


CMPB 


#ROSTAT,P.CMND(RS) 


;CHECK IF READ DRIVE STATUS 


IOl 
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CZREND.P11 10-JAN-78 10:05 *xSPECIAL COMMAND PROCESSING 
10815 O0S3504 001132 BNE 10$ -NO, PROCESS OTHER COMMANDS 
10816 053506 O16 00 000010 MOV P.CS2(RS),RKCS_(R2)’-LOAD CS2 FOR COMMAND 
10817 053514 11656 uated 000017 MOVB P-CSIH(RSS,P.CSI+1(R5) ;STORE BITS 8-15 OF CS] 
19818 2 042765 165777 OO00016 BIC WEC<CMTECDT ,P.CS1 CRS) 4CLEAR ALL L BITS EXCEPT FORMAT 
10820 053530 112765 000001 oo0016 MOVB #OR.SEL.P.CS1(RS) ; jst 
10821 3536 016562 000016 oO00000 MOV P.CS1(RS),RKCS1(R2) ; ISSUE COMMAND 
10822 44 737 7154 2s: JSR PC. Wd. WTCH “CALL WATCH-DO0G TIMER 
10823 30 16265 000016 MOV RKESi(R2),P.CS1(RS) ;STORE COMMAND AND STATUS REG. 1 
10824 6 2768 000200 o00016 BIT sRDY,P.CS1(RS) naArt FOR READY 
10826 Boas 052226 JSR PC,I.CST1 STORE CONTROLLER REGISTERS 
10827 72 016265 000034 o00040 MOV RKMR2(R2),P.AOO(RS) ;STORE STATUS BYTE OO MESSAGE A 
10828 016265 000036 o00042 MOV RKMR3(R2)’P.BOO(RS) :STORE STATUS BYTE OO MESSAGE B 
10828 953608 785 100000 o000i6 BIT #CERR,P.CS1(RS) ;CHECK IF CONTROLLER E 
108 14 14 BEQ 6$ ?NO, GATHER DRI TATUS 
10831 053618 05037 993100 cLRE MW. TINE SLE WATCH DOG TIMING ON THIS DRIVE 
10635 G36765 0004 000014 BIT BNOCHK, : , PRST(RS) CHECK TFN CHECK’ Hg MODE 
10835 3636 2765 001000 oj0020 BIT aMDS,P.CS2(RS) t CHECK " MUL IPCE BRINE SE SELECT 
10838 3e44 1043 ees BNE a. on sYFS. Tnmicare CONTROLLER ERROR 
10838 053652 miei C.RTRN ‘ERROR RETURN 
10838 053654 032768 010400 oo0020 BIT #NED!UFE, JP. csacrs) ASHE Ck F NON-EXISTENT DRIVE OR UNIT FIELD ERROR 
10841 053664 032765 000001 000036 BIT #DRA,P.DS(RS) Che oor 
1083 053674 056768 910000 000014 fe BIS BORVSZD, P. seeing TSE aenoara Is. SEIZED BY OTHER PORT 
10845 053706 000137 O54456 : IMP OAR ANC noicat REGISTERS 
10847 053712 004037 0 6S: ISR RO,1I.STAT sGATHER DRI TATUS 
10848 053716 os54456 — C.RTRN mated A RETURN . 
10849 053720 105037 003100 CLRB W. TIME STOP WATCHDOG TIMING ON DRIVE 
10850 053724 037 003114 CLR W. ORV ESET WATCH-DOG 
10851 053730 032765 000400 000014 BIT #NOCHK,P. PRST(RS! CHECK IF NO CHECK MODE 
10853 3538 esate oo0000 CLR RKCS1(R2) i CLEAR INTERRUPT ENABLE 
10854 053744 004737 OS2550 8S: ISR PC. R.NORM ?REPORT COMMAND COMPLETE 
1085s 053 000137 OS44S6 IMP C.RTRN *RESTORE REGISTERS 
10857 3754 052737 : M T T MULT Vv T 
ipgea esas Boiear peoees O0s0se 9s fe OBE: RcOnT i PRICATE CONTROLLER ERROR 
10868 053766 000137 OS44S6 IMP Oca 
10861 053778 12276 000140 oo0001 10S: cNPE #RELEAS, P. CHNO(RS) ; CHECK IF RELEASE COMMAND 
10863 054002 010537 003054 MOV RS,O.WAIT 3ST ORE 1" BOR EO BLOCK ADDRESS IN 
10865 OS4O0& 052765 000010 oD0020 BIS #RLS,P CS2(RS) {SET RELEASE BIT , 
10866 OS4014 O16S62 o00020 o00010 MOV CS2(RS) , RKCS2(R2) s LOAD CS2 FOR DESELECT 
10867 OS54022 112737 000001 003074 MOVB C9 ISRL rif LAG FOR RELEASE COMMAND 
10868 O54030 116565 0900007 000017 MOVB p. SiHCRS) .P ogilicns); “STORE BITS 8-15 OF CSI 
10869 054036 O42765 165777 O00016 BIC wtC<CFMTIC bors ok -CS1 (RSS {CLEAR ALL BITS EXCEPT FORMAT 
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CZ2R 


oo 
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_ 


BOBODOBD 
BaNoU Lon 


Bae 


sieesaagean se 


Pietetatetatastett it 


o00 

DDDD 
bm ps eh pe bs 
ONOU£CWM-OwW 


DONO DODOGOODODO OOOO OODO OD OD DOO DODD ODO DODDoDoDDODoDDon 
833333 


0000 
W000 
rs Cade 
Wwre-Ow 


7 
oo 
Ww 
fur 
UP 3 


10926 


6ND.P11 


RAAAR AARKAARA 


£f£f£6££ £L£L£655 555 


os4 

054356 
054360 
054364 


112765 
032765 
00 


11276S 
“ita 
1027 
16562 
000137 
122765 


004737 
000437 


013746 
016265 


000101 
000400 


osisse 
000400 
oooo00 


000177 
000100 
OSeSbe 


000040 
000000 
100000 
000001 


OSeS62 


003060 
000000 


000016 
000014 
ooo000 


000001 


000014 


ooo001 
0030Se 


000010 
000016 
000016 


003052 


000016 


30A( 1052) 


11S: 


13S: 


14S: 
22S: 


308: 


32S: 
34S: 


36S: 


378: 
38S: 
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#SPECIAL COMMAND PROCESSING ' 


#SELDRV P. cS1(R5) ;STORE COMMAND 
OCHK,P.PRST(RS) :CHECK IF NO CHECK MODE 
DO NOT RESET INTERRUPT ENABLE 
5 ree -CS1(RS) iReSer. INTERRUPT ENABL 


1(R5) sRKCSI (RE) SUE COMMAND 
C.RTRN stone REGISTERS 


#RDALHD,P.CMND(RS) ;CHECK IF_READ ALL HEADERS 
30S ;NO: CHECK IF CONTROLLER CLEAR 
RS,O.WAIT :SEt WAITING FOR COMMAND COMMPLETION 
P. BALO(RS) ,HOR.AD ;LOAD HE Ss 

08.CFMT, ,P.CSIH(RS) 


14 ves LOAD 22 IN HEADER COUNT 
#20. ,HDR.CT *LORO 20 IN SECTOR COUNT 
22S :GO ISSUE READ HEADER COMMAND 
#22. ,HOR.CT sLOAD 22 IN SECTOR COUNT 
-CYLN( } -RKDC (Re) ALOAD CYLINDER ADDRESS 
P.SECT(RS)/RKDA(Re) ;LOAD TRACK NUMBER 

CSe(R5) RKCS2(Re) :LOAD DRIVE NUMBER 

H(RS),P.CS1+1(R5) ;STORE BITS 8-15 OF CS1 

BE CCENT COTS © P. -CS1(RS) ,CLEAR ALL BITS EXCEPT DRIVE TYPE 
#RDHEAD,P.CS1(RS) ;STORE READ HEADER COMMAND 
#NOCHK,P.PRST(RS) :CHECK IF NO CHECK MODE 
34§ XES, | INDICATE ILLEGAL DRIVER COMMAND 
P.CS1(RS), RKCS1(R2) ZISSUE READ HEADER 
C.RTRN NatstoRe ORE REGISTERS 
#CONCLR,P. CHND (RS) ;CHECK IF CONTROLLER CLEAR 
32 ; CHECK IF SUBSYSTEM CLEAR 
RO,I.CCLR ‘CLeaR Cc NTROLLER 
#NOCHK,P. PRST(RSS nbs TROL i NO CHECK MODE 
40 ERRUPY Enel RETURN 
RKCS1(Re2) Reset 
4O$ 


#SUBCLR,P. CHND (RS) - ic oe IF rr sussysIen CLEAR 
36$ 
ae. E,ALSBAT E.CONT oe 1 oft te GR DRIVER COMMAND 
eS CARs RESTORE REGISTERS 
#SCLR RKCSE (RE) ISSUE SUBSYSTEM CLEAR 

CSitre) 1S) -STORE C ND AND STATUS REGISTER 1 
ACER, P Rea iRes LEAR i IF CONTROLLER ERROR RESET 


3 if NISH COMMAND 
#BITO,E.CONT i get CLEAR SUBSYSTEM DID NOT CLEAR 
; CONTROLLER ERROR 


SS 
) 
NO 


PC,R.CONT ; REPORT 
C.RTRN ;RESTORE REGISTERS 
W.MILI,-(SP) ;LOAD 16 MILI-SECOND COUNT FOR ATTENTION 


TO DISAPPEAR 
RKCS1(R2),P. csi (Rs) ;STORE CS1 
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CZR6ND.P11 10-JAN-78 10:05 *SPECIAL COMMAND PROCESSING 
10927 054372 032765 oO40000 oDD016 BIT #DI,P.CS1(RS) ;CHECK_TF ATTENTIONS CLEARED 
10928 O54400 001411 BEQ 95 :YES, F NISH COMMAND 
10929 O54402 005316 DEC (SP) *DECREMENT 16 MILISECOND COUNT 
10930 O54404 001367 BNE 38S ;CHECK DRIVE INTERRUPT AGAIN 
10931 oO54406 005726 TST (SP) + ;ADJUST STACK 
1 054410 0S2737 oo0040 003052 BIS #—.SCLR,E.CONT SET SUBSYSTEM CLEAR DID NOT CLEAR 
+103 + DRIVE ATTENTIONS 
| 10934 OS4416 004737 OSe2562 JSR PC,R. CONT fall 
10335 oS4422 O0u0415 BR C.RTRN RESTORE REGISTER 
ipaae os44e4 39S: TST (SP)+ ADJUST STACK 
10938 O544e6 032765 OO00400 000014 BIT #NOCHK,P. PRST(RSS > “CHECK IF NO CHECK MODE 
10939 054434 001010 BNE C. -RTRN YES, RES ORE REG 
| 1094990 054436 112737 177777 003074 MOVB ,1-ISRL :SET INTERRUPT ENABLE SET 
| 10941 054444 012762 600100 000000 MOV s1e° RKCET CRE) :SET INTERRUPT ENABL 
1034e O544S2 004737 OoS2es5s0 40S: JSR PC, R. NORM t INDICATE NORMAL TERMINATION 
| 10944 OS44S6 012637 177776 C.RTRN: MOV (SP)+,PS sRESTORE PSW 
| 1094s peuues 61S ea0 MOV (SP)+;RO *RESTORE RO 
| 10948 O544e4 012601 MOV  (SP)4) RI :RESTO 
10947 O54466 Ole60e v (SP)+)Re ?RESTORE Re 
| 10948 054470 012603 MOV (5P)+°R3 ZRESTORE R3 
| 10949 054472 012604 MOV (SP)+)R4 ?RESTORE RY 
10950 054474 O12605 MOV (SP)+/RS ?RESTORE RS 
10951 054476 O00207 RTS PC * RETURN 
| 1096¢ .SBTTL OCTAL TO BINARY CONVERSION ROUTINE 
| ihaee ee ee 
1095 7" THIS ROUTINE WILL CHECK A STRING OF ASCII CHARACTERS TERMINATED 
| ipge9 1 i WITH @ NULL <fO05 OR CO THE CHARACTERS ARE LEGAL 
10958 1 a IT WILL GENERATE THO BINARY WORDS PLACING THE LOW 16 BITS 
10358 i ON THE STACK AND THE HIGH 16 BITS IN LOCATION SHIOCT. 
10961 + *CALL 
| 10962 tx MOV <ADDRESS OF ASCII STRING>,-(SP) 
10963 1 i JSR PC, OCTBIN 
10964 1 <ADDRESS OF ERROR RETURN> 
183ee "Bestel 
1paee : 5 RE EEE EERE REEL REAR RRR EE 
10969 OS4500 oO10046 OCTBIN: MOV RO,-(SP) ;SAVE RO 
10970 O54502 010146 MOV R1;-(5P) :SAVE Ri 
10971 4504 O10246 MOV R2’-(SP) :SAVE Re 
10972 OS54506 016600 000019 MOV fotsp). RO :GET ADDRESS OF ASCII STRING 
10973 O54512 005001 CLR Ri ?CLEAR DATA WORDS 
10974 054514 o05002 CLR ne 
10975 16 112046 2S: MOVB (RO)+,-(SP) ;PICK THIS CHARACTER 
10976 054520 001423 BEQ 3$ RO GET OUT 
19977 O54S2ee 1el6e7 Oo00S4 CMPB (SP), 8’, :CHECK IF COMMA 
10978 054526 001420 BEQ 33 :IF COMMA GET OUT 
10978 054530 122716 oo0060 CMPB ~—s.- #0, (SP) :MAKE SURE THIS CHARACTER IS 
10980 054534 003030 BGT 4g : @N OCTAL DIGIT 
10981 054536 122716 o00067 CMPB ss: #7, (SP) 
10982 O54542 O0e425 BLT 4$ 


6 


aS 


S 2 
8 3 


er eeerERyT ET ay 


Beaeeseess 
AAAAAAR RAPAHAA 


OOO 0O00000000 


at a) 
OO NOU Fw ODD 


Res 


SERRE 


ee ee eee ae ee a ee ae ee ee ee ee be ee ee ee a ee en ee es ee ee ae ee be be ee ee ee ee 
3 


ee ee ee ee ee ee ee ee ee ee ee he ee 


Ratan 
BeRReE 


! 
} 
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| 
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177770 


000010 
054632 


eee 


ooco0e 


oo 
o= 


054734 
054732 
Be 177771 


054734 


054732 
001057 


047401 
054734 
054732 
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4S: 


LO1 
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OCTAL TO BINARY CONVERSION ROUTINE 
ASL Ri ; #2 
ROL Re 
ASL RI ; #4 
ROL Re 
ASL Rl ; *8 
ROL Re 
BIC #407, (SP) ;STRIP THE ascit JUNK 
BOD (oP )4, $08 THIS DIGIT 
ee, (SP)+ ?CLEAN PARTIAL FROM STACK 
MOV Ri, 10¢SP) :SAVE RESULT 
MOV Re: $HIOCT 
MOV (SP)+, Re ;RESTORE Be Re 
MOV (SP)+'RI 
MOV (S5P)+’RO RESTORE Ra 
ADD #2, (SP) :ADJUST RETURN 
RTS PC RETURN 
TST (SP)+ ; CLEAN UP PARTIAL FROM STACK 
MOV (SP)+,R2 ik 
MOV (SP)+, Ri Re 
MOV (5P)+'RO R 
MOV a(SP)+, (SP) F eeetts oe OF ERROR ROUTINE ON STACK 
RTS PC ies PROCESS ERRO 
0 GH ORDER gener GO HERE 


SHIOCT: .WORD 
-SBTTL RANDOM NUMBER GENERATOR 


abot tne 


« RKEKKKRSREKK EEE R ERE E KKK AR AKER EARE RARER ERA RARE RARER KRAARAERAARAEEE 
PkTHIS ROUT NE 
RANGE OF O TO 2(+33)-1. 


:*WITH A 
ALL: 


1S: 


JSR 


RETURN 


PC, SRAND 


By ONUN, RO 


$HINUM, R1 
#1057, 7,R0 


#47401,R1 
RO, SLONUM 


IS A DOUBLE PRECISION PSEUDO RANDOM NUMBER GENERATOR 


L_THE ROUTINE 
Hs E TURN HER E THE RANDOM 


:OHINUM, SLONUM 


;;PUSH RO TACK 
;;PUSH R TACK 


a R STACK 
;SET RO WITH LOW 
He T Rl WITH HIGH 
3; SET ft FT COUNT 
3; SHIF LEF 
;;ROTATE CARRY INTO R1 AND 
;; CHECK FOR 
; ; CONTINUE 


R TO MAKE X (129 


eas 


CONSTANT 


;SAVE R 
; SAVE RI 
; POP STACK INTO Re 


SEG 0218 
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CZR6ND. 


1640 


cee 


RPS SeRE Rae eens 


: 


Ee RE REAP RBS 


sh hb Bh 0 bb a a bb be eb bo he eh 
— 


Oe ee be bee ee ee be ee ae be be ee be he eb he he Pane be be Bae as ee be ae ne es fe Pe ae baste Pee bas he he pbs bee be 


0000 
24 wo 


——————E 


Pil 


beu7e6 


054730 


Baits 


055100 


12601 
ioe 
000207 


123338 


013746 
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001157 


ooo0de 
000001 


000100 


sane 


oco040 


ooo0de 
000011 
ooo20C0 


osSe214 


0S51S0 
001156 


001154 


MO1 
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001340 
001341 


001341 


RANDOM NUMBER GENERATOR ROUTINE 


aia (SP)+,Ri ;;POP STACK INTO Rl 
(SP)+,R0 ;;POP _ INTO RO 


aCShUn: Ge jigs : 


; pXANHEREHEANEARENSAAESEEREEAAEREME REDE EO ONET TERMINATE WITT AO 
 KROUT TINE TO TYPE ASCIZ ‘ayer ea tg ane INATE WITH A O BYTE. 


:*#THE ROUTINE WILL INSERT NUMBER ACTERS AFTER, A LINE FEED. 
+ ¥N TEL: StyLL C TBINS NS THE ChaRac TER m0 BF USED AS T SETTLER CHARACTER. 
 ¥NOTEO: FILLS CONTAINS THE NUMBER ILLER CHARACTE S REGUIRED. 

: NOTES: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 

>#CALL: 

:%1) USING A TRAP INSTRUCTION 

+ i TYPE , MESADR ;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
;*OR 

3% TYPE 

ti MESADR 
: ea 
$TYPE: TSTB S$TPFLG ;;1S THERE A TERMINAL? 

BPL 1$ ::BR IF YES 
HALT His: HERE IF NO TERMINAL 
1S MOV VE 
MOV BO zcsP2 RO ii S8V ARDRESS OF ASCIZ STRING 


Ghee BBETENY, Senv He aie ae CONSOLE 


BITB #APTSPOOL,, SENVM 3;SP * * 
Ru. Bee att bore 
JSR P ATY3 33 
61S: . WORD 5 MES 
625: BITe BABTCSUP, , SENVM 3 160 CON 
2s: Move — (RO)+, -(SP) + PUSH Cin cae ip “Tween. ONTO STACK 
sa rst (SP)+ = jeTE I TERMINATOR POP IT OFF THE STACK 
sg: ADD £3” tde5 He ADIU ust RETURN PC 
4$: cure #HT, (SP) + BRANCH IF <HT> 
chee BCRLF , (SP) ;;BRANCH IF NOT <CRLF> 
TST (SP)+ ;;POP_ <CR><LF> EQUIV 
TYPE +: TYPE A CR AND LF 
ERB SCHARCNT Gb AR Re YCRRARr pan 
cS: JSR PC, STYPEC #0 TYPE THIS C CTER 
6S: hpe FILLC, (SP)+ :i1S i TINE, FOR FILLER CHARS. ° 
MOV $NULL , - (SP) ::GET # OF FILLER CHARS. NEEDED 
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ZREND 10-JAN-78 10:05 TYPE ROUTINE 
11095 ;;AND THE NULL CHAR. 

11096 055104 105366 000001 7$: DECB 1(SP) ;;D0ES_A NULL NEED TO BE TYPED? 
11097 055119 002770 BLT R IF NO“-GO- POP THE NULL OFF OF STACK 
11038 Sli2 004737 os51S50 ISR ‘PC, STYPEC 3 3 GO TYPE A 

11099 055116 105337 055214 DECB SCHARCNT :DO NOT COUNT” AS A COUNT 

11100 oSSi2e 000770 BR 7§ : {LOOP 

11106 ;HORIZONTAL TAB PROCESSOR 

11104 OS5124 112716 oo0040 8S: MOVB #’ ,(SP) ;REPLACE TAB WITH SPACE 

11105 0551 004737 055150 93: JSR Pc, $TYPEC 1 TYPE A SPACE 

11106 055134 132737 000007 os5214 BITB #7, SCHARCNT ;;BRANCH IF NOT AT 

11107 OS5142 001372 BNE SF ;;TAB STOP 

11108 peeiut 005726 TST (SP)+ ; ;POP — OFF STACK 

lil 146 724 BR 2s :GET_NEXT CHARACTER 

11110 055150 105777 123774 STYPEC: TSTB aSTPS :;WAIT UNTIL PRINTER IS READY 

111d 055154 1003 BPL STYPEC 

li11 1 116677 oOo0002 123766 MOVB (SP), aSTPB ;;LOAD CHAR TO ue TYPED INTO bata REG. 
11113 955164 122766 000015 o0000e cMPE #CR, 2{SP) 3315 CHARACTER A CARRIAGE RETURN? 
1111s bes 74 082883 os5214 cbs SEuaRenT t Weer-CLERR CHARACTER COUNT 

11117 122766 oO00012 oo0n0e 1S: CMPB #LF (SP) aa CHARACTER A LINE FEED? 

11118 055210 STYPEX ; ; BRANCH YES 

11119 OSSe1e 105227 INCB (PC)+ $;COUNT THE CHARACTE 

11120 055214 0 SCHARCNT: .WORD O > CHARACTER COUNT STORAGE 

lll2i1 055216 000207 STYPEX: RTS PC 

1ll2e 

11123 

itis 

i111le6 peprengoese eet atin haan eee 
11127 SeTTL DOUBLE-PRECISION MULTIPLY SUBROUTINE 

11128 ; SUB TINE. 19 MULTI Poy WO DOUBLE PRECISION INTEGERS 

11128 5 perce ALL GISTERS ( B-RED 

11131 i ENTER WITH JSR PC,M.DPIM 

11132 :# MUL ULTIPLIER IN’ R2-R3 

11133 iH ULTIPLICAND IN RY-RS 

11138 is PRODUCT RETURNED IN RO-R1-R2-R3 

11136 = RKGLKERERREEREE RELA RRR RRE RRA LER KRE RRR AER ARR KAARAKR KAKA KAKA KREE 
11137 osSS220 oos5000 h'DPIM: CLR RO ;CLEAR HI ORDER WORDS 

11138 Osseee 5001 CLR RI 

111 24 012746 oo00041 MOV #41,-(SP) ;MOVE 33 (DEC) TO COUNTER 

11140 055230 o06000 M.DPO1: ROR RO 

11141 055232 006001 ROR Ri i 
1114¢ OSpe34 ROR Re ;SHIFT TO ADD 

1114 ROR Ra 

11144 055240 103003 BCC M.DPO2 ;NO CARRY NO ADD 

1114S oOSSe42 060501 ADD RS,R1i 

11146 4 0905500 ADC RO ;ADD DOUBLE PRECISION TO OBTAIN NEW PARTIAL 
11147 O55e46 o60400 ADD R4.RO ; 0 

11148 005316 M.OPO2: DEC asP :DECREMENT COUNTER x 
11149 055252 001366 BNE M.DPO1 

11150 OSS52e54 005726 TST (SP)+ ;REMOVE THE COUNTER 
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+ REGGAE EARLE ERA A LEER RA RRAL RAR A RARER EARLE L EA RARERE LAKE 


UTINE 


“SBTTL DOUBLE PRECISION DIVIDE SUBROUTINE 
SUB) TO PERFORM DOUBLE-PRECISION INTEGER DIVISION 


. BSee CALL REGISTERS (RO-RS) 
x ENTER WITH J PC,M.OPID 
:% DIVIDEND IN RO-R1-R2e-R3 
t+ DIVISOR IN R4Y- 
: REMAINDER RETURNED IN RO-R1 
;# QUOTIENT RETURNED IN Re-R3 
: © REKKKKEERRLERKEEKRAAAKKARRAKAKRRERRARAAERSHARKREARERRLAKARHRAKAKARARE RAKE 
h’DPID: MOV #40,-(SP) ;COUNTER FOR DIVISION CYCLES 
MOV RY, -(SP) :HI ORDER 
MOV RS'-(SP) *LO ORDER DIVISOR TO THE STACK 
NEG 2(SP) :FORM NEGATIVE 
NEG asP : VERSION OF THE DIVISOR 
SBC 2(SP) 
ADD asP,R1 
ADC RO ;PERFORM THE INITIAL SUBTRACTION 
ADD 2(SP).RO 
BC M.OPSO ;IF CARRY THEN OVERFLOW HAS OCCURRED 
CL -(SP) :THIS IS A LONGER LASTING CARRY BIT 
M.DP4O: ROL R3 
ROL RP 
ROL RI 
ROL RO 
TST asP ;TEST “CARRY INDICATOR” 
BEQ M.OP41 :IF_NO “CARRY” THEN ADD ELSE SUBTRACT 
CLR asP ‘CLEAR UP FOR NEXT TIME 
ADD 2(SP),R1 
ADC 0 ;ADD -(DIVISOR) 
ADC SP ; :SET “CARRY” 
ADD 4(SP) RO’ ;< 
BR M.DP4Y2 
M.DP41: ADD RS,R1 
ADC RO ; ADD +{DIVISOR) 
ADC asP ; :SET “CARRY” 
ADD R4,RO  3< 
M.DP42: ADC asP ;SET "C 
TST asP :TEST THE UPDATE INDICATOR 
BEQ +4 ;> IF ZERO FORGET IT 
INC R3 : I NO CARRY POSSIBLE HERE 
DEC (SP) 3< *DECREMENT COUNTER 
BGT M.OP4O *BR IF MORE TO DO 
ROR R3 
BCS M. DP44 
ADD RS,R1 
ADC RO 
ADD R4, RO 
CLC 
M.DP4Y4: ROL 3 
ADD #10,SP sADJUST STACK BY 4 WORDS 


SES 0221 


oss4¥ee o0de4e 
oss4e4 000207 
Beales 062706 
OSS4 000262 
055434 000207 


WM-OWONOU CWO: N 


forururorururururorurory ony rururorurorurururururorufruroror 


BUR AE ie Suv NOU 


cL es is 
243 e215 3 
e44 S514 006001 
e4S 055516 00 
2e46 O5552e0 006001 
247 O55S5ee 
248 SSe4% 006001 
es Es Rete 
esl bee 32 70e 
055536 


000753 
Osss40 000016 


ee ee se ae ae be be be Be ae ee ae ee ae ee ae be he Pe Pee np Pe bee 
Senerenaeretunenonehe ee ee ee he ee ee 
bab aH 
wWstw 
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DOUBLE -PREC STON bYvibe: aoe 
CLV 
RTS PC 
M.OPSO: ADD #6,SP 
SEV 
RTS PC 


.SBTTL DOUBLE LENGTH BINARY TO OCTAL ASCII CONVERT ROUTINE 


; Sek bh et tet abt tall ft ah taht etek pt gh ffl hdl at tah te 
PATHIS ROUTINE WILL CONVERT A 32-BIT UNSIGNED BINARY NUMBER TO AN 


j KUNSIGNED OCTAL ASCIZ NUMBER. 


SEQ 0222 


iS MOV genre -(SP) ;;POINTER TO LOW WORD OF BINARY NUMBER 
1 a JSR aasDB20 *:CALL THE ROUTINE 
1 i RETURN ::THE ADDRESS OF THE FIRST ASCIZ CHAR. IS ON THE STACK 
$DB20: SAVREG ;SAVE ALL REGISTERS 
MOV 2(SP),R1 :PICKUP THE PO NTER TO LOW WORD 
MOV #SOCTVL4+13.,RS ;;POINTER TO DATA TABLE 
MOV #12.,R4 : $B ELEVEN CHARACTERS 
MOV #tC7'R3 $$ D0 
MOV (R1)4+,RO Picci: 
MOV (R1)+/R1 H 
1$ ove RS (RS) +7 TERN TER IN DATA TABLE 
° ’ 9 
MOV FO; Re bteeT se oIEt, - 
BES 3$ es nat THe Last DIGIT 
Fira fe Pier IP rears) OnE raat oraT INTER FOR FIRST 
MOV Re acsp) riBe f SAAR POTS ON oat ERE 
RESREG : RESTORE ALL REGISTERS 
RTS PC He TO R 
2s ASR R3 ::POSITION THE MASK FOR THE LAST DIGIT 
35 ROR 3 ;;POSITION THE BINARY N 
ROR RO :} THE NEXT OCTAL bIert 
ROR Ri 
ROR RO 
ROR Ri 
ROR RO 
BIC R3,R2 ;;MASK OUT ALL JUNK 
ADD #°0,Re ::MAKE THIS CHAR. ASCII 
is ;7G0 PUT IT N THE DATA TABLE 


BR 
SOCTVL: .BLKB ,;RESERVE DATA TABL 
.SBTTL OOUBLE LENGTH BINARY TO bECTRAL ASCII CONVERT ROUTINE 


SRUGUESUEREteRSREsESeSERUENSENERERESRENeNeEeEEEsEEsEsseeesees 
NUMBER TO AN UNSIGNED 
eee Tite: ASCII) NUMBER. THE SIGN OF THE BINARY NUMBER MUST BE 


PATHIS ROUTINE WILL CONVERT A 32-BIT BINARY 


a MOV 


: #PNTR,-(SP) 
5% JSR 


PC, a#$DB2D 


;;POINTER TO LOW WORD OF BINARY NUMBER 
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CZR6ND.P11 10-JAN-78 10:05 DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 
1263 ;% RETURN 1s THe FIRST ADDRESS OF ASCIZ 
1264 :IS ON THE STACK 
1266 
: VR ss TER 
1586 BEEEER APSEB? ooo00e Tm AS ace teyy—_RLEEB cone 
1370 pee 616066 o002 MOV Rovet op} ET ADRESS ia asciz STRING ON ON STACK 
i 1 055574 12201 MoV ae ee PICKUP THE BINARY NU 
ee nn ek er 
1878 Geri Raezes senate: 1$ aie ASTNPURSE, RS eet ban TIAL 
e778 161401 2s: SUB CRY) , Rd iiShernact’ TEN POWER 
828 483388 BUF SS), Re :BR IF TEN POWER TO LARGE 
281 203 Mig Rg Hee TO PARTIAL 
oS beeat 3S: ADD cR4)+, Rd STORE SUBTRACTED VALUE 
S640 4 ADD (R4)+,R2 
Dsseue esses che (RS )4,(R5)+ ;;MOVE T XT TEN POWER 
=) tipsy O° te ki. em So 
005327 DEC (PO)+ oat 


oss6S2 " 
me on F 10 
Oeste iBt47 RECREG — Hal REcrsTeRS 


GRRE EROS Se RRS OR Bae eR TE 


ee ee en ae ee be be ae ae be ae ee be be ae be be he ee ae ae a ae ne ae ee ae ae ee ee Pe ae be Pe Pee Be oe Pe fee be Be 


ee ee en a ee he Be ee es be be be he Be Pe be an en ae Be fe be pw Be eo he be he ee 


iy 7 RTS PC 33R 
058670 45000 STNPWR: 4 2900 sel. EEO 
Bese 36 160400 ;;1.0E&08 
S674 765 2765 
OSS676 1 ie OT es ;;1.0E&07 
7 ie 1? ;;1.0E06 
Bees0 ppae0 pee s:1.0E05 
peesis 023420 23420 ;;1.0E&04 
055714 o00000 0 
ae Bees 16 750 1750 33 1.0E03 
316 Oeere4 bad ‘ 3:1.0&02 
ll 7 nd le s31.0E01 
3le 055730 0 
ais Oper a6 00001 , ;;1.0E00 
3i¢ S223 885 ofa SDECVL: .BLKB le. RESERVE STORAGE FOR ASCIZ STRING 
315 .SBTTL TYPE NUMERI CAL ASCIZ sTRihc SUPPRESS LEADING ZEROS 
318 5p EERE REA EERE EERE EERE EERE RHEL ERRE LAE RLE EES 


ree eR ; Mad e MACY11 30A(10S2)_ 10-JAN-78 12:02 PAGE 225 SEQ 0224 


s 
AN 


ZREND 8 10:05 TYPE NUMERICAL ASCIZ STRING SUPPRESS LEADING ZEROS 
11319 sXTHIS ROUTINE 1S USED TO TYPE AN ASCIZ NUMBER SUPPRESSING THE 

11321 : ¥CALL : 

1132e i mov BNUMADR (SP) ;;FIRST ADDRESS OF ASCIZ STRING 
1135 i 

11326 oOS5752 oO1004% SSUPRS: MOV RO, -(SP) ;;SAVE RO 

11327 055754 016600 Oo00004 MOV 4($P),RO :;PICKUP THE POINTER 

11328 055760 105710 1S: TSTB (RO) : : TERMINATEOR? 

113239 055762 001403 BEQ aE 35 Y 

11330 055764 122720 o00060 CMPB ss #0, (RO) + :;1S THIS AN ASCII “0” ” 

11331 0587 1773 BEQ 1$ :;BR IF YES 

11332 055772 005300 2S: DEC RO ;;BACKUP BY_"1" 

11333 055774 010037 os6002 MOV RO, 3$ +:SAVE FOR TYPING 

11334 104401 TYPE ::G0 T 

11336 O8e009 12600 38: nov? cp 4, 20 Restore RO 

11337 012616 MOV (SP)+) (SP) ;RESTORE THE STACK 

11338 056010 000207 RTS : RE 

11339 .SBTTL BINARY TO OCTAL (ASCII) AND TYPE 

11342 iUTATS ROUTING 1s USED 10 CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
11343 :*OCTAL (ASCII) NUMBER_AND TYPe IT. 

1igie j #STYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
Het Pilg Tuc PEE HBenIR 

11348 5 BYTE N siNeL T9 & FOR NUMBER OF DIGITS TO TYPE 
11350 :# ‘ a ;;1=TYPE LEADING ZEROS 

11351 i ::0=SUPPRESS LEADING ZEROS 
11383 j #STYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
11355 :*CALL: 

11356 1 i MOV NUM, - (SP) ;;NUMBER TO BE TYPED 

11357 i TYPON ?;CALL FOR TYPEOUT 

11358 j X$TYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 

11361 : * MOV NUM, - (SP) ;;NUMBER TO BE TYPED 

11362 1 a TYPOC ?iCALL FOR TYPEOUT 

11364 O56012 017646 o00000 STYPOS: MOV a(SP),-(SP) ;;PICKUP_THE MODE 

11365 O56016 116637 000001 os6235 MOVB 1(5P);SOFILL ;;LOAD ZERO FILL SWITCH 

11366 112637 056237 MOVB (SP)+,SOMODE+1 ;;NUMBER OF DIGITS TO TYPE 

11362 6030 066716 02 ADD se, (SP) :ADJUST RETURN ADDRESS 

11368 056036 112737 OO00001 OS6235 S$TYPOC: MOVB #1,SOFILL ;;SET THE ZERO FILL SWITCH 

11370 O56044 112737 000006 056237 MOVB #6, SOMODE+1 :;SET FOR SIX(6) DIGITS 

11371 OS2 112737 O0000S 056234 STYPON: MOVB #&5,SOCNT ;;SET THE ITERATION COUNT 

11372 O56060 010346 MOV R3,-(SP) :;SAVE R3 

11373 O5606e 0O10446 MOV R4)-(SP) ::SAVE RY 

11374 O56064 010546 MOV RS, -(S5P) :;SAVE RS 
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Z Pll 10-JAN-78 10:05 BINARY TO OCTAL (ASCII) AND TYPE 
11375 OSE066 413708 056237 Move SOMODE+1, RM ;;GET THE NUMBER OF DIGITS TO TYPE 
11378 beerog frods? oseese noe ORG SOMODE Ree oR USE x ALLOMED 
11379 104 113704 056235 MOVB SOF ILL, RY ::GET THE ZERO FILL SWITCH 

11380 110 000012 MOV 12(SP);RS ::PICKUP_THE INPUT NUMBER 

11381 114 3 CLR R3 +:CLEAR THE OUTPUT WORD 

11386 i & 006105 1S: ROL RS ; ROTATE. NSB INTO “C” 

11364 Ose 006105 2s: ROL RS + FORM Tie DIGIT 

11386 0561 008108 ROL RS 

11387 i 10503 MOV RS,R3 

ll 1 006103 3S: ROL R3 ;;GET_LSB OF THIS DIGIT 

11389 134 i 37 056236 DECB SOMODE i; TYPE THIS DIGIT? 

11391 142 2703 177770 BIC #177770,R3 *:GET RID OF JUNK 

tides pee lde parted BNE 4g ?:TEST FOR O 

sa Gerles BBiaes eS aiieg so 

14332 126 po 303 4$: INC tA WET cEBpRESS ANYMORE 0’°S 

11396 056156 052703 o00060 BIS #'0,R3 ::MAKE THIS DIGIT ASCII 

tise Beciee Piney peewee ile ah TONE BB TH Bigot ARCAOY 

11399 1 1049401 056232 TYPE at ::GO TYPE THIS DIGIT 

11400 056176 105337 056234 7$: DECB $OCNT ::COUNT BY 1 

11401 003347 BGT 2s ??BR IF MORE TO DO 

11402 oo24o02 BLT 65 ::BR IF DONE 

11403 gos20s INC RY :: INSURE LAST DIGIT ISN’T A BLANK 
ttige iz bleeds 6S aay 7a 54 RS 5 ee PO eRce DIGIT 

11406 peests 012604 2 MOV (SP)+>R4 He STORE RY 

11407 056216 012503 MOV (SP)+'R3 + }RESTORE RS 

11408 056220 C1 6666 oo00002 oo0004 MOV 2(SP))4(SP) ::SET THE STACK FOR RETURNING 

11409 056226 012616 MOV (SP)+' (SP) 

11410 30 000002 RTI ; sRET 

11411 056232 000 8S: -BYTE 0 HS FOR ASCII DIGIT 

11412 056233 000 "BYTE 0 :: TERMINATOR FOR TYPE ROUTINE 

11413 056234 000 SOCNT: :BYTE 0 ?:OCTAL DIGIT COUNTER 

11414 05623S 000 SOFILL: :BYTE 0 +:Z2ERO FILL SWITCH 

1141S 056236 oo0000 SOMODE: :WORD  O ; ;NUMBER OF DIGITS TO TYPE 

11416 .SBTTL CONVERT BINARY TO DECIMAL’AND TYPE ROUTINE 

tists See OUTING is Used 10 CHANGE A 1G-BIT BINARY NUMBER 10 A S-DIGIT 
11420 :*#SIGNED DECIMAL (ASCII) NUMBER AND e BE 17! DEPENDING ON WHETHER THE 
11421 :#NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
11422 !*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
11423 j XREPLACED WITH SPACES. 

11425 1 i * MoV NUM, -(SP) ;;PUT_THE BINARY NUMBER ON THE STACK 
11488 ta TYPDS :!GO TO THE ROUTINE 

11428 oS6240 STYPDS: 

11429 OS6240 o10046 MOV RO,-(SP) ;;PUSH RO ON STACK 

11430 OS562e42 010146 MOV R1'-(SP) ::PUSH R1 ON STACK 
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11460 4 000010 
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He fers to 
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ee 4 eae 116663 177777 177776 
tides peeuts Afseoe 
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11481 OS64Se 9000012 
11482 OS64S4 o00004 
11483 
11484 
1148S 
11486 


MACY11 30A(1052) 


10-JAN-78 12:02 PAGE 227 
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


ney AB71} EUR Oh Ta 
MOV R {2p} : Buey pe ON TACK 
MOV #20200, -(SP) SET BLANK SWITCH AND SIGN 
MOV 20(SP);RS :;GET THE INPUT NUMBER 
BPL ;;BR IF I T bay So 
NEG : MAK The’ BI NUMBER POS 
MOVB #7-, 1(SP) 5 MAKE THE ASCII R NE 
CLR RO :ZERO THE C ANTS INDEX 
MOV #$OBLK,R3 :: SETUP THE OUTPUT POINTER 
MOVB #’ ,(R3)4 :: SET THE IRST CHARACTER TO A BLANK 
es: CLR ;;CLEAR THE BCD NUMBER 
MOV $OTBL(RO),RI1 He THE CONSTANT 
3S: SUB R1,RS >:FORM THIS BCD DIGIT 
BLT 4$ 8 F 
INC Re :? INCREA HE BCD DIGIT BY 1 
4g: ADD R1,RS ;;AOD BACK THE CONSTANT 
TST R2 +:CHECK IF BCD DIGIT=9 
BNE S$ + FALL THROUGH if ° 
TSTB (SP) ::STILL DOING LEADING 0’S? 
BMI 7$ ;;BR_IF YES 
SS: ASLB (SP) ; MSD? 
BCC 6 ::BR IF_NO 
MOV8 1(SP) ,-1(R3) ::YES--SET THE SIGN 
6S: BIS #’0,Re i MAKE THE BC biGiT ASCII 
7: BIS #’ ’Re ::MAKE IT A SPACE IF NOT ALREADY A DIGIT 
MOVB Re, (R3)+ ::PUT THIS CHARACTER IN THE OUTPUT BUFFER 
TST b)+ ;;JUST INCREMENTING 
CMP RO, #10 ?:CHECK THE TABLE INDEX 
BLT 2s ::GO b0 THE NEXT DIGIT 
BGT BS 5 GO 9 EXIT 
MOV ,R2 ;;GET L 
BR 6$ ?:GO CHANGE TO ASC 
8S: TSTB (SP)+ ::WAS THE LSD THE FIRST NON-ZERO? 
BPL 9$ 33 IF_NO 
MOVB -1(SP),-2(R3)  }:YES--SET THE SIGN FOR TYPING 
9S: CLRB (R3) ::SET THE TERMINATOR 
MOV (SP)+,RS ::POP STACK INTO RS 
MOV (SP)+'R3 ::POP STACK INTO R3 
MOV (SP)+)Re : POP STACK TO Re 
MOV (SP)+'RI ::POP STACK 0 RI 
MOV (5P)+’RO ::POP STACK INTO RO 
TYPE SDBLK ::NOW TYPE THE NUMBER 
MOV 2(SP),4(SP) ::ADJUST THE STACK 
MOV (SP)+' (SP) 
RTI ;;RETURN TO USER 
$DTBL: 10000 
1000. 
100. 
10 
$DBLK: .BL 


KW OY 
-SBTTL ERROR HANDLER ROUTINE 


5 5 MMH EE EE EE EERE AREER RRR EEE 
;¥THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 


SEG 0226 
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ue 
12b¢ pepedd 11637 001116 
208 bees P5537 788905 
os O56 777 20000 
beeecs Bouse? oyso12 
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bee 
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bb bh 


OnNWU ES wre 


tt Ged 
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36 402 

S28 Na By 013716 001306 
44 022737 O24046 

531 056652 1001 

S32 O0S6654 000000 

533 6656 

534 6656 000002 

$35 

536 

537 

538 

$39 

S40 

S41 

Se 
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001340 
O0S6602 


122314 


oo004e 


SERROR: 
7$: 


1S: 


20S: 


4S: 


S$: 


6$: 


R 
-SBTTL TTY INPUT ROUTINE 
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ERROR HANDLER ROUTINE 


+ SAN Me ® ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 


GO 
THe SHITCH "GPTTONS PROVIDED BY THIS ROUTINE ARE: 


T_ON ERROR 
INHIBIT ERROR TYPEOUTS 
BELL ON ERROR 

LOOF ON E 


N ;;ERROR=EMT AND N=ERROR ITEM NUMBER 


_ tt BEN THE ERROR FLAG 
N’T LET THE FLAG GO TO ZERO 
Met gor LAY ;;DISPLAY Y cate NUMBER AND ERROR FLAG 


ine” erg 


*RING Bi 
geet Th ric NUMBER OF ERRORS 
(SP? RRPC COUNT THe SS OF ERROR INSTRUCTION 


setae s SITEMB ss STRIP AND SAVE THE ERROR ITEM CODE 


a 13, JSWR IF P TYPEOUT IF SET 

BE TYPERR Hi BKIP USER ERROR ROUTINE 
, SCRLF 

SAPTENV, SENV ;;RUNNING IN APT M 


55 NO, SKIP APT ERROR Ri 


serena st RELOATE FATAL ERROR ERROR soit 


O 2g ; ;APT_ERROR LO 

SWR *:HALT ON ER 

3$ 5; SKIP IF CONTINUE 

aB1TOS, aSWR ee SN ERROR SWITCH SET? 
SLPERR, (SP) iF Ae URN FOR LOOPING 

$7 CH cK K FOR AN ESCAPE ADDRESS 

SESCAPE, (SP) te RETURN ADDRESS FOR ESCAPE 
#SENDAD, a#42 ;;ACT-11 AUTO-ACCEPT? 

6$ i; BRANCH IF NO 


; ; RETURN 


= REREKRERE REEL AE RRR AAA A RAR RAL A ALA RE AE RALE ALARA E LAK ELEKLEREREE 


 ENABL 
. DSABL 


LSB 
LSB 


I0e 
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CZR6ND.P11 10-JAN-78 10:05 TTY INPUT ROUTINE 

S43 .: KEEKRERKKELKKKAE REE KAAA AERA AL KAA EAALARAALEKARAAAARRARRARALA RARE LELES 
eu j THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
eve & ” RDCHR ;; INPUT A SINGLE CHARACTER FROM THE TTY 
54 % RETURN HERE :: CHARACTER IS ON T TACK 
eve : ::WITH PARITY BIT STRIPPED OFF 
550 x 
551 OS6660 011646 SRDCHR: MOV (SP) ,-(SP) ::PUSH DOWN THE PC 
ese 056660 016666 o00004 000002 MOV 4(SP),2(SP) >;SAVE THE PS 
553 056670 105777 122250 1S: TSTB asTtKS ::WAIT FOR 
S54 056674 100375 BPL 1$ ?:A CHARACTER 
55S 056676 117766 122244 oo0004 MOVB aSTKB,4(SP) ::READ THE TTY 
556 704 042766 177600 oO0004 BIC #tC<1?7>,4(SP) 3:GET RID OF JUNK IF ANY 
4 0867 2 bbe? 000004 000023 CHP 4(SP), #23 ji1S IT A CONTROL-S? 
2e0 beerse fopays OTe le aS et SMES (om @ GuanecTes 
561 730 11774 le2212 MOVB J$TKB,-(SP) ::GET CHARACTER 
bbe 734 e718 177600 BIC #40177, (SP) :!MAKE IT 7-BIT ASCII 
5 740 26 0021 CMP (SP)+, kel *:IS ITA CONTROL-Q? 
564 Oe rae 001366 BNE 2 5:16 NOT DISCARD IT 
See 308 ce 000004 o00140 3S: CNP 4cSP), #140 HTS iT UPPER CASE? 
568 766 W3 7 900004 000175 ch 4¢SP), #175 iis Tt A SPECIAL CHAR? 

956770 2766 oo0040 oo0004 a BIC #40, 4(SP) {MAKE TT UPPER CASE 

057 052536 015 000 SCNTLU: .ASCIZ /tU/<15><12> ?:CONTROL “U" 

136 6507 OO00l2 S$CNTLG: :ASCIZ 7tG/<15><le> *: CONTROL “G" 


057 . 

OS70le 005015 OS352e3 Oe0lee SMSWR: .ASCIZ <15><1le>/SWR = / 
0$7020 000 

057023 040 ONO OS350S SMNEW: .ASCIZ 7 NEW = / 


.SBTTL POWER DOWN AND UP ROUTINES 


sPOWER DOWN ROUTINE 
057034 012737 05704 o00024 $PWRDN: MOV SSPWRUP , PARVEC 2 SUR la FOR POWER Ur 


Ll el el el ol el ll cl el ll cl el ld cl ed dd dd dd dd Od Od oe Od dO Od od Od Od Oe nd a en ny nd On ent en Ont ony ent ont ont Oo NG] 
PUL ODDIE LOM Owe NOU LON 


(od oul oul oul qual oul qmLqual oual ound oul onal qual oul apm ened uel oul ovl onl ool ove onal onal od oval onal onal meal eel el ed eel eel eel eed eed eed eed ed eel ed ed eed ee ee eed eet 


QUT UU UI UU UU UU 


O0S7042 000000 HA 
057044 000776 BR 8 
;POWER UP ROUTINE 
057046 005037 057120 $PWRUP: CLR SPWRCT ;WAIT LOOP FOR TTY TO COME UP 
70Se 005237 057120 4$: INC SPWRCT 
7056 0013 BNE 4$ 
057060 Ole7 057034 000024 MOV #SPWRON,PWRVEC ;SET VECTOR FOR POWER DOWN 
0S7066 012737 O00340 O00026 MOV #PR7,PWRVEC+2 ;RE-ESTABLISH POWER AND TRAP PRIORITIES 
7074 Q1e737 000340 000036 MOV #PR7, TRAPVEC+2 
7102 Ole706 001100 MOV #STACK, SP ;RE-INITIALIZE THE STACK 
057106 104401 057122 TYPE , PWRMSG ; TYPE “POWER FAILED” 
97 O5711e 900005 RESET ;CLEAR THE UNIBUS 
98 057114 000177 121766 JMP @SLPADR ;RESTART THE CURRENT TEST 
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ZR6ND 10-JAN-78 10:05 POWER DOWN AND UP ROUTINE 
11599 057120 ooo000 S$PWRCT: .WORD O 

11600 057182 005015 047520 guese7 PWRMSG: .ASCIZ <15><12>/POWER FAILED/<15><12> 

11602 057136 O4210S5 oOs0iS 000 

11603 057144 . EVEN 

Iie0e 

11607 5 5 HSE SEA ME EME HE EH AE Me HE eH HE HE HE EH HE HH HE HE HE HE HE HE HE HEE HE HH 
11608 th SCOPE1 - INTERNAL SCOPE ON ERROR ROUTINE 

11609 ?*¥CALLED BY “SCOPER™ 

11610 = REKKKREEEKGRE RRR RASRAKKA SARK ARRRAARRAARARAKERARARAKLRAAAAHKRAAE 
11611 O57 144 105737 001103 bAOPE1: rS18 SERFLG SSE IF AN ERROR HAS OCCURRED 

11e15 057152 32777 001000 121760 BIT #8179, SUR i SEE IF LOOP ON ERROR DESIRED 

11615 057162 013716 001110 MOV SLPERR, (SP) :SET ERROR LOOP ADDRESS ON STACK 
11618 057166 oo000e 6S: RTI : RETURN 

11618 

11619 

11620 .SBTTL SCOPE HANDLER ROUTINE 

11622 . SO ee ee ee ING OF SUBTESTS, IT WILL INCREMEN 
11623 PETHIS ROUTINE aay THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
11624 Fe 4 LOA TEST NUMBER ($T STNM) INTO THE DISPLAY REG” (DISPLAY<7:0>) 
11625 *AND LOAD THE ERROR F INTO DISPLAY<15:08> 

11626 i xTHE SWITCH OPTIONS pho Deb Ree THIS ROUTINE ARE: 

11627 > *¥SWI4=1 L ON TES 

11628 : eWilel INHIBIT LTERATIONS 

11629 : xSWO9=1 LOOP ON ERROR 

11630 > *CALL t 

11631 t SCOPE ;;SCOPE=IOT 

11633 057170 SSCOPE: 

11634 057170 005737 001304 TST STIMES ;CHECK CURRENT ITERATION NUMBER 

11635 057174 001404 BEQ SXTSTR ?BR IF O, TO SKIP CHECK OF SWR BIT 14 
11636 057176 032777 oO4O0000 121734 1S: BIT #B81T14, ISWR 3 ;LOOP ON PRESENT TEST? 

11637 057 001101 BNE SOVER AYES IF SW14=1 

11638 -#a#eHSTART OF CODE FOR THE XOR tis ERsseee 

1 Bat set stl ng sa NBO IME ro' Sone CHS 
11641 057210 013746 oo0004 MOV QSERRVEC, -(SP) ame te ONTENTS OF THE ERROR VECTOR 
Lieve ferei3 Guava, Yezqe4 0000 Hoy SRRASEEE Fire Or ae 

11644 057226 012637 O00004 MOV (SP)+, J8ERRVEC ;;REST THE ERROR VECTOR 

1164S 057232 o004S0 BR $SVLAD :GO TO THE NEXT TEST 

11646 o57e34 Gee Ss: CMP (SP)+, (SP)+ CLEAR THE STACK AFTER A TIME OUT 
1164 7 126 ooo0004 MOV (SP)+;aB8ERRVEC };;RESTORE ERROR VECTOR 

11648 057242 000413 BR 7$ OP ON THE PRESENT TEST 

11649 oe7eus 6$:;#888#END OF CODE FOR THE XOR $F LOOE Resess 

11660 gazed 105737 001103 2s: Tsi8 SERFLG ; HAS BN ERROR OCCURRED? 

11652 0s7e5e 163737 001115 001103 cHPe SERMAX,SERFLG ;;MAX. ERRORS FOR THIS TEST OCCURRED? 
11654 057262 032777 001000 121650 BIT #BITOS, ISWR ::LOOP ON ERROR? 


KOe 


SEQ 0230 
1/06 SS VERIF 2 MACY11 30A(10S2) 10-JAN-78 12:02 PAGE 231 
Sato 10-JAN-78 10:05 SCOPE HANDLER ROUTINE 
1165S 057270 001404 BEQ 4g ;;BR_IF_NO o tint oe 
11656 727, 13737 001110 001106 73S: MOV SLPERR,SLPADR ;;SET LOOP ADDRE 
et 057300 33 4S: aie SORF Ic :ZERO THE ERROR FLAG 
iiee8 057 1383 é CLR STIMES i CLEAR THE THe nex OF ITERATIONS TO MAKE 
BR 1$ 
1teee 087 15 345 004000 121616 3S: BIT #BIT11, aSUR iw IBIT OT ERE ONS? 
tees 3354 1008 SICNT :: INCRE ITERATION COUNT 
ets Bee 35 Bat dod 001104 che Stines, Sicnt ; CHECK THE ITERATIONS MADE 
11e6e 057340 Ole 7 oo0001 001104 1S: mov 81 SICNT | Mes {REINET IAL ize oA tact sass COUNTER 
1166 7 137 057424 1 er i 2 
tiees pee 364 13737 oot igs 001324 — nove $131 NM, STESTN big? Tear RUMBER IN AP APT MAILBOX 
11670 366 O116 001106 ‘ 33SAVE SC 3 
Libze pe73ee pi2832 pot sae OCR s2gcapere* eae" cet Pee FROM ERROR ADORESS | 
1167 7402 112737 000001 001115 MOVB #1, SERMAX + 9 as 
R: MOV S$TSTNM, DISPLAY ;;DI Y TEST NUM 
tie>e pea ute reat nares et MOV SLPADR; (SP) ; ;EUDGE RET ADDRESS 
11855 pees eerea SMXCNT: B00. ::MAX. NUMBER OF ITERATIONS 
ile78 -SBTTL APT COMMUNICATIONS ROUTINE 
{ibaa sahahaimiareeiet + tl -+-+-+-)-+-iaf-+-+-+-tael 1-5-4) taal 
11680 | or eC aes ta 
0000 7672 $ATY1: MOVE #1,SFFLG TO REPORT 
ties pease 118233 aera neat SATY3: HOVE #1 ,SHFLG i790 TYPE A MESSAGE 
1188s s44q org 3g3 000001 057672 SAT: MOVB #1,SFFLG ;;TO0 ONLY REPORT FATAL ERROR 
tiese OS74eS o10046 . - PUSH RO ON STACK 
ties ouea pt 4 HOV RO, = (863 t  PUSH Ri ON STACK k 
{ioe peauee 1 548 057670 Tore SPL LG $ SHOULD TYPE A MESSAGE? 
11885 Os 7e4 091739 000001 001340 cHPB BOPTENV, SENV jj OPERATING UNDER APT? 
11233 aa 1327 000100 001341 BITB SGPTSPOOL, , SENVM 5} SHOULD SPOOL MESSAGES? 
tiBaa pes 20g eee 000004 MoV 34(SP2,RO te MESSAGE ADDR on a pate 
ibe pesete 5 7 ayer aemeets 1S: tst SRécTYPE 986 16 BONE W/L LAST XMISSION? 
11697 7522 001375 i 
7524 RO, SMSGAD PUT ADOR IN MAILBOX 
iibes Os7ee4 OheosD a 2s: 7318 §R)+ FIND END OF MESSAGE 
11700 057532 001376 i aaa 
11788 Berane feecay 001934 SR Ree RO BF BERRI ESET nos 
11305 peseqe aieed 001336 MOV RO, SMSGLGT j PUT LENGTH IN MAILBOX 
11704 057546 012737 000004 001320 nov #4’ SMSGTYPE HE SS 
o000 : MOV D4(SP) 4S ;PUT MSG ROOR N 
11308 05758 De2%e6 areas atte = ADD He, ria iu 1 SS BUEIP one TURN ADDRESS 
11509 perere b3549 bo0>5e JSR PC, STYPE ?:CALL TYPE MACRO 
11710 057602 oo0000 4S: “WORD O 


02 
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Saat meat 08 -FBN~ 8 10:05 opt C RMUNTCATIONS ROUTIN eo 
11711 057604 SS: 

1171¢ 057604 95737 057672 10$: TsTB SFFLG 5; SHOULD REPORT FATAL ERROR? 

11714 o5761 348 001340 TST SENV 1 RUMUING UNDER APT? 

11715 761 1413 BEQ 125 :IF NOT: 

11718 057620 005737 001320 11S: rst SHSGTYPE j FINISHED LAST MESSAGE? 

HIS Sevres Gee ponmms guises Be Mtsp,srarm fHAET EAMog Ea 

11720 peseas peez8s 1320 INC SMSGTYPE ;;TELL_APT TO TAKE ERROR ~ 

11721 057646 105037 057672 12S: CLRB SFFLG ::CLEAR FATAL FLAG 

117 8 76 1 7 057671 CLRB SLFL ;: CLEAR 

117. 76 057670 CLRB ;3CLEAR MESSAGE FLAG 

117 12601 MOV (SP)+,R1 P STACK INTO Ri 

1178 OB7EEN 0 fey (SP)4°RO {TOP STACK INTO RO 

117 5ps8 000 SMFLG: .BYTE O ; {MESSG. FLAG 

11728 057671 000 S$LFLG: .BYTE O :LOG FLAG 

11769 057672 ose SFFLG: BYTE 0 FATAL FLAG 

11731 00200 APTSIZE=200 

1 Ber eSbge too 

11334 88 Boa AP Opts 

11735 .SBTTL ROUTINE TO SIZE MEMORY 

11732 [ie sage coempeamseny: o'er Ema ANU 
11739 P 

11738 i JSR C, SSIZE 

11741 :xSLSTAD WILL CONTAIN 

11742 i WITH KT11 OPTI -- LAS ¥ Magotor ADDRESS OF THE LAST BANK 
11243 Fei sex atic contatn mie Nasr. efi A LAS SOLUTE ADDRESS OF AVAILABLE MEMORY 
tee Bie ath ae MENA MENT 

;# 

11208 polt0? aust Pen" ad serie f PNAGERE 

11748 #81715 = 0 DON’T v  MBNEGEMENT OPTION 

11749 * i DETERMINED Hey ROUTL ONE 

11 3ef 057674 010046 ZE: MOV RO,-(SP) >: SAVE RO ON T STACK 

11782 Osrere Bibive sete’ Woy = BUS=t8e} J ERRVE RT GN THE Stack 

113283 peso B1Osue MOV RS (Sp) +t AVE RS ON THE sta 

1175S 057704 013746 coo004 MOV JBERRVEC,-(SP) :;SAVE Ra ECeNT ERROR’ VECTOR PS & PC 
11756 057710 013746 o00006 MOV SHERRVECS2, -(SP) 

11757 057714 010600 MOV SP RO -SAVE THE STACK POINTER 

11758 ;;SET THE | ERRVEC pS TO THE PRESEAT PS 

11759 057716 O44 ;;PUSH OLD op Sl SH AND PC ON STACK 

117 77 126 ocjoo006 neo (SP)+, J#ERRVEC+2 PSW IN a#ERRVEC+2 
11761 057724 012701 003776 MOV #3776,R1 ; s SETUP hibR RES S 

11768 057730 105767 TSTB (PC)+ :USE MEMORY MANAGEMENT? 

11763 09773 oo0209 $KT11: gitORD 200 is iiSET TO USE MEMORY MANAGEMENT 
11765 057736 012737 060074 oD00004 MOV #SKTNEX, JHERRVEC’;;SET FOR TIMEOUT 

11766 057744 005737 177572 TST as#SRO {KTI1 ARE YOU THERE? 
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CZR6ND.P11 10-JAN-78 10:05 ROUTINE TO SIZE MEMORY 
ti36— Besse Besgag 100000 OS?7se Gig SUGpOO.SKTAL sYATTIACIZe FOR "PAR" LOADING 
11769 7760 01270 72340 MOY #KIP. Re He OF FIRST “PAR” 

11220 eat O1870s 06019 MOV HY cl $ CORO excnr © SPAR oe AND EIGHT “PDR. ’S” 

1177 7 7bz 4 177740 «1S: MOV #77406, -40(R2) 3 POR , READ/WRITE 

11278 MOV (SP), (R2)+ 4H CoRg PA 

11358 —— COB 3 He bebaTE, F ENTIC At EIGHT ARE LOADED 
7 177600 MOV #177600, -(R2) A K F / 

Lite : a cre ane BE THERA FS Hr 

11778 BSon25 | Tyeeie nov ipa gee He Beet 

ii? One ,(SP)+ een OFF THE STACKCNO Sa 

1178 77578 53: ite Sibir + FORA hEMGRY MANAGEMENT 

117 9064 oo0004 MOV SSiT T gasERRVEC : OR TIME OUT 

11783 143778 4S: TST #143 3; TRAP NON-EX-MEM 

117 0040 A 8 40 728 :MAKE A 1K STEP 

11786 DB 0056 172356 chp “ #KIPAR7, (R2) LAST ONE? | 

11389 B00 1 SKTOUT: MOV (R2) ,Re *:GET LAST BANK+1 

11788 osanre Baars 177572 cLR S#SRO ::TURN OFF MEMORY MANAGEMENT 

11790 74 0427 100000 057732 SKTNEX: BIC #100000, $KT1 ;;KT11 NON-EXISTENT 

11731 06010 012737 060132 OO00004 SCORE: HOV ESCROLT, » SERRVEC SET up FOR og ptieour 

117 11 400 1S: ADD R1 : MENT b BY 1K 

113aq Beptt Bess, B5co49 ADD oes bith : gene 

1179S 0601 005711 TST tt TRap ON TIME OUT 

11796 Oeoies 2 177776 CMP 617776, Ri + :LAST 

117 1 13 BNE 1 :NO--TRY AGAIN 

tia Gols ieee Goma = SST BOA ’ 

11238 ate 6 * MOV RO, SP + OR OE Re te STACK 

11801 O60144 012637 900006 MOV (SP)+, AHERRVEC+2 ;;RESTORE ERROR VECTOR 

11 60150 12637 004 MOV (SP)+ ae RRVEC 

11 060 10137 Beak & MOV Ri, SLs ;;LAST ADDRESS 

11 M60160 O1 200 MOV Re TBK T BANK 

lispe Denies O1Seoe sit Sot :TRESTORE Rg 

HBS Baie Slee ‘i She 

11808 060174 900807 RTS — i” 

1181 176 re) SLSTAD: .WORD 0 ;sCONTAINS THE LAST ADDRESS 

11811 060200 900000 S$LSTBK: :WORD 0 ‘CONTAINS THE LAST BANK 

11816 "SBTTL. SAVE AND RESTORE RO-RS ROUTINES 

118i8 Eo 2 peerionneerasinny sey er ager ERE EME e MRE, 

11816 F “CALL: 

11817 SAVREG 

11818 t XUPON RETURN FROM SSAVREG THE STACK WILL LOOK LIKE: 

11820 i STOP---( 416) 

11821 : +2---(+ 

11822 — 


1% +4---R5 
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z 

11823 

11624 

11825 

11826 

11827 

Hes 

11850 010046 

11851 060204 010146 

11836 “Staats 

118 10 010346 

11834 O60ele O10446 

11835 Renstt 010546 

1188 0216 016646 o0002e 
1183 pedsee teat 000022 
11838 16646 O000ee 
11839 O60e3e 016646 O000e 
ie 060e36 000002 

11841 

118s 

1184 

11844 

11845 060240 

1183 0240 Bt 

1l 44 O1 O0000ee 
11648 Ole666 O0000ce 
11849 4 Qle666 O00002e 
Hee? Setees Blasts 

11851 12604 

Hess Geass te 

11854 Beas? 012601 

11855 060272 012600 

11856 060274 Oo0000e 

11857 

11858 

11859 

11860 

11861 

11862 

11863 

11864 

lisee 060300 bi 6600 ooo00e 
11667 060304 005740 

11868 060306 111000 

11869 060310 006300 

11870 Ronsie 016000 060332 
11873 060316 000200 

1187. 

11873 

11874 

11875 

11876 03 01164 

11877 O603ee 016666 O00004% odn0000e 
11878 060330 000002 
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SAVE AND RESTORE RO-RS ROUTINES 


;% +5---RY 

;# +8---R3 

; ¥+10---Re 

3 *+1e---Ri 

5 #+14---RO 

SSAVREG: 
MOV RO, -(SP) ;;PUSH RO ON STACK 
MOV Ri, -(SP) *:PUSH R1 ON STACK 
MOV Re, -<SP) };PUSH Re ON STACK 
MOV R3,-(SP) ;;PUSH R3 STACK 
MOV R4;-(SP) ?:PUSH RY ON STACK 
MOV RS'-(5P) :;PUSH RS ON STACK 
MOV 22tsp),-(SP) ?:SAVE PS OF MAIN FLOW 
MOV 22(5P),-(SP) ::SAVE PC OF MAIN FLOW 
MOV 22(SP)'- (SP) ::SAVE PS OF C 
nov 22(5P),-(SP) ::SAVE PC OF CALL 

j XRESTORE RO-RS 

: : 

: RESREG 

$RESREG: 
MOV (SP)+,22(SP) ;;RESTORE PC OF CALL 
MOV (5P)+; 22(5P) > RE TORE PS OF CALL 
MOV (5P)+; 22(SP) + :REST PC OF MAIN FLOW 
MOV (SP)+; 22(SP) j ;RESTORE PS OF MAIN FLOW 
MOV (SP)4+;RS ::PO Stack NTO RS 
MOV (SP)+)R4 *:POP STACK INTO RY 
MOV (SP)+°R3 ::POP STACK INTO R3 
MOV (SP)+;Re ::POP STACK INTO Re 
MOV (SP)+)RI1 ::POP STACK INTO R1 

(SP)+;RO +:POP STACK INTO RO 


R 
.SBTTL TRAP DECODER 
9 9 26 36 9 9 9 0 0 A a A A A a aH HH a 


t&THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE “TRAP” INSTRUCTION 
#AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
:%OF THE DESTRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
?%GO TO THAT ROUTINE. 
STRAP: MOV RO,-(SP) ; ;SAVE_RO 

MOV 2($P),R0 ::GET TRAP ADDRESS 

TST -(RO) + BACKUP BY 

MOVB (RO), RO ::GET RIGHT BYTE OF TRAP 

ASL oO j ;POSI TION FOR INDEXING 

MOV $TRPAD(RO),RO ;; INDEX TO TABLE 

RTS RO +:GO TO ROUTINE 


;;THIS IS USE TO HANDLE THE “GETPRI” MACRO 


STRAP2: MOV (SP), -(SP) ;;MOVE THE PC DOWN 
MOV 4(SP),2(SP) ::MOVE THE PSW DOWN 
;:RESTORE THE PSW 


SES 0233 
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Reece enc un-See wen TORSO Se PRTER ESR ARRON TESS 


wo 
fu 
WwW 


BERNE 


(ls gunk spel aged lapel apd ap peel apd spl aul opel eel tpl aemel cel eel ted opel eel ane aoe aed aed oped aoe eed ee eee eed ad eed ee ed eel el de ee ee 
Peo 
= 


ee ee te ee me ae Be ae ee ae be ae pe ee Bee be me Be ae Be ae as ee Pe nn fee se Be be be ee be ee Be be bo be bo ee ee 


00000 
WW 
£W 


‘06 
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06032! 
054736 
0560 
6012 
O0S62e40 
OS66 
060202 
06024 
057144 
020040 d20040 
1 000040 
0040 
1 4516 
020123 0S20 
051105 O001ce 
16 BsReke 
i 
047516 026516 
051511 Oe01e4 
iss 
1 O0S2111 
042511 O4e114 
BT out 
0201 Byaesq 
0SeS1 pools! 
020104 7$e4 
OS004O0 051101 
seals os204 
0201 Ba0Sz0 
0$1105 o00lee 
041501 046040 
000 
le3 O4eS20 
erty Bahets 
6111 0114 
041516 000124 
O0Si1e0 043517 
OSllee 000 
116 047117 
O44530 OS2le3 
0471e5 052103 
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04eSe4 

000 
oSe50e 
Oe01ee 


4105 
2515 


054105 
051104 


043040 
042440 
054Se3 
042515 
041440 
042440 
020117 
O0e01ee 
053517 
042105 
000123 
O0S2eS06 
042440 


o4e45S 
043040 
000 


B03 


-SBTTL TRAP TABLE 


; ¥THI 
; #BY 


érRPAD: 


TSTMSG: 
aseSPe: 
EMI: 
EMe: 
EM3: 
EM4: 
EMS: 
EME: 


EM7: 


EM10: 
EM11: 
EMle: 
EM13: 
EM14: 


STYPON 
STYPDS 


SSAVRE 
SRESREG 
SCOPE 1 
-ASCIZ 


“ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 


-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 


HR 33 
G ;;CALL=SAVREG 


CALL=RDCHR 
; } CALL=RESREG 


;;CALL=SCOPER 

/ TEST / 

72% = / 

/UNIBUS PAR ERR/ 
/NON-EXIST MEM 

/NON-EXIST DRV/ 

/UNIT FIELD ERR/ 
/SUBSYS TIMEOUT/ 
7D TO C PAR ERR/ 
7C TO D PAR ERR/ 


ZAC LOW 

“SPEED LOSS/ 

ZILL FUNCT 

7PROG ERR/ 
/NON-EXIST FUNCT/ 


eno 


TABLE CONTAINS THE STARTING ADDRESSES OF 
HE “TRAP” INSTRUCTION. 


THE ROUTINES CALLED 


TTY TYPEOQUT ROUTINE 
TYPE 


OCTAL NUMBER 


SEQ 0234 


ZEROS} 
EROS) 
T CALL) 


UTINE 
INTERNAL LOOP ON ERROR ROUTINE 


CO3 
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1 


2 


furururorururoro 
forororororore furoruforuru 


DING EE Ee EERE E EG tas yD 
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DH60S: .ASCIZ /ECC DATA IS:/ 


2 
a 
B 
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RAP TABLE 


DFO1L: - WORD 
- BY 
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- BYTE 
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;ALL_ CHARACTERS OCTAL 
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1 06. “WOR DH102 
1o4y 000 "BYTE 2,0 
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i 065250 000006 ae DF 13: - WORD 6 . iat FOR 2ND LEVEL ERROR 
Ee? REESE ocoit Hen Bal Ro SRB fe Gel” BEER 
1 000 BYT 0 rORC E 
12459 065260 063332 ‘WORD OHio2 
12460 O06 002 000 ‘BYTE 2,0 
1 4 35 "WOR DABOI 
1 a 000 *BYT 0 
1 064062 “WORD DH6&O06 
12464 527, 003 000 ‘BYTE 3,0 
1246S 065274 O64446 ‘WORD DHSO2 
1e466 065276 000 000 ‘BYTE 0,0 
124 oooo06 DF14:  .WORD ;FORMAT FOR 2ND LEVEL ERROR 
{Sues peespe 000 000 BYTE e a) 'IN OPERATION INCOMPLETE ERROR 
12470 065304 063243 [WORD ODH1O1 
1247 000 "BYTE 7,0 
12472 065310 063332 “WORD DH102 
12473 O653le 002 000 "BYTE 2,0 
ieuz4 065314 063635 oat ‘Bye DAEO1 
1B47e peesse oBYbeS ; WOR DH606 
124 065322 003 000 “BYTE 3,0 
12478 Ob53e4 064446 "WORD DHSO2 
16479 5326 000 000 ‘BYTE 0,0 
124 06 000011 DF1S: .WORD 11 
{Suge 065332 000 000 “BYTE 0,0 
12483 065334 063243 "WORD OH101 
12484 065336 007 000 "BYTE 7,0 
1248S 065340 063332 “WORD DH102 
12486 2 002 000 "BYTE 2,0 
12487 065344 063123 [WORD OHe200 
1e468 Ob 000 000 "BYTE 0,0 
124 5 063435 “WORD DHe01 
12490 065352 007 000 "BYTE 7,0 
12491 065354 063524 "WORD DH202 
12492 0 000 "BYTE 2,0 
12493 065360 064507 “WORD DHSO3 
12494 065362 000 000 "BYTE 0,0 
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/ALL ORIVES TO BE TESTED MUST HAVE :7<15><12><12> 
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A 20 OR 22 SECTOR FORMATTED CARTRIDGE/<1S>< 12> 


HEADS MANUALLY LOADED/<15>< 12> 


DESIRED PORT SELECTED/<15><12> 


WRITE LOCK DISABLED/<15>< 12> 


DRIVE READY LIGHT ON/<15><12><12> 


/DRIVES NOT TO BE TESTED MUST HAVE BOTH/<15>< 12> 
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/CONNECT THE ALIGNMENT INDICATOR TO THE DESIRED DRIVE, 7<15>< 12> 


“VIA THE HEAD ALIGNMENT CABLE ONLY, AND CYCLE UP THE/<15>< 12> 
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/DRIVE. AFTER MOUNTING THE PACK ON THE DRIVE, 7¢<15><12> 


/THE OPERATOR SHOULD WAIT 30 MINUTES FOR THE DRIVE/<15>< 12> 


/TEMPERATURE TO STABILIZE, BEFORE PROCEEDING WITH 7<15><1l2> 


ALIGNMENT. 7<15><12><12> 


/RESPOND TO ALL REQUESTS FOR PARAMETERS, BY ENTERING 7<15><12> 


/THE DESIRED PARAMETER VALUE (NO <CR> NEEDED).7<15><12> 


/THERE ARE TWO MODES OF OPERATION : MANUAL MODE /<15><1le2> 


O4 
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15763 7440 N72 035040 O20040 
12764 7446 1$ OS2516 046101 
tha 067454 0464 042117 020105 
1 5e9 : 061362 -ASCII 
12768 1 1505 
12769 047440 
12770 053111 
12771 042116 
150c6 504 
1277. 124 
12774 052520 
12775 
127 O01 -ASCII 
127 Siis 
12778 14 
1 See 
12780 101 
1278 101 
iss 040 
ere Boesls 
187 108 -ASCII 
1 11 
1 7511 
1 2040 
12789 O0S0040 
15531 re 
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ter Rte: 
13538 De Bosq 
15788 OF i440 
12800 06 4105S 
12801 : 2523 
ieee See are. een 
1 DOO si 
1 OC 2) 
12805 D020 0104 
(S80? 870034 4e72 
1 70034 4522 
12808 01S 
yt 440 -ASCII 
1281 7’ 124 
16813 4 2117 
1281 700 1 053040 
12813 0100 1105 020131 
12814 B70108 050117 oO44Se4 047117 
(Sele Grose Oebies O4ssio Ousl0i 
12817 070130 o05015 
12818 070132 O42Se3 O42514 052103 .ASCII 


/ALLOWS SELECTION OF DRIVES AND HEADS BY TTY INPUT, 7<15><12> 


ZAND AUTO MODE ALLOWS DRIVES AND HEADS TO BE SELECTED/<15>< 12> 


/BY OFF-ON OPERATION OF DRIVE PORT SELECT SWITCHES. 7<15>< 12> 


ZIN EITHER MODE, UP TO S MINUTES OF SEEK EXERCISES’<15><12> 


/MAY BE REQUESTED FOR EACH DRIVE. 7<15><12> 


/ALSO IN EITHER MODE, A VERIFY OPTION ALLOWS HEAD/<15><12> 


“SELECTION WITHOUT THE UNLOADING AND LOADING OF /<15><12> 
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/THE DRIVE BY THE PROGRAM, WHICH OTHERWISE OCCURS/<15>< 12> 
/TO SELECT NEW DRIVES IN MANUAL MODE, TYPE <fC>./7<15><12><12> 


“TO ALLOW MANIPULATION OF THE ALIGNMENT TOOL. 7<15><12> 
“FOR HEAD ALIGNMENT PROCEDURE, REFER TO FIELD 7<15><12> 


7TO RESTART EITHER MODE, TYPE <tZ>.7<15><12> 
“TO RESTART ALIGNMENT AID, TYPE <tR>.7<15><12> 
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041040 -ASCIZ /TEST BOX (RKO6-07TA, RKO6-07TB) OPERATOR'S MANUAL. 7<15>< 12> 


- ENO 


SEQ 0eS2 
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Rens = 177440 2eSbs 2348 
ABORT = 000200 YOHbR 7448 
ac 361} 9749 
= 
ac = 346 
ACLO = 33028 zoih 
= 
ADHD = 53ug 
ADOWL = 2348 
ADDW10= 234 
ADDW11= 2348 
isn sie 
l3= uy 
4s 
S= ; 4 
= bal 
= 2348 
ADDWY = 2348 
FOU . 5348 
= 
AD! = 2348 
= 348 
: 348 
T= 4 2354 
ADEVM = ecS78 2348 
AENV = 2348 2359 
PACE te 
= 
AL 43368 486 
ALLDRV 806 4877 
ALLTRM 7449 9550 
ALNCYL= 42398 7607 
ALNPAK y 5 ry 73 s 
AL K 8 
= 4 376 
= 600000 53s (5388 
AMADRY= 2348 2386 
AMAMS1= 2348 2370 
= 2348 2378 
= Says B34 
AMSGAD= 2348 2356 
G= 2348 2357 
AMSGTY= 2348 2350 
AMTYP1= 2348 2371 
AMTYPe= sae 379 
AMTYP3= 2 382 
TYPY= 348 385 
ANYDER= 42528 S14 
APASS = 2348 2353 
APRIOR= 2348 
TCSU= 11074 117348 
gl = 6283 11067 
APTPAS 6278 6 # 
APTSIZ= 000200 4744 6332 
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6583 

5169 5174 
5060 5066 
6819 6835 


6597% 7462 7478 


672e6* 6848  6881* 
9693% 9706% 9708% 


9438 hy 410639 


7465 
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32939 
8420 
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BIT11 = 004000 
BITle = 010000 
BIT13 = 020000 
BIT14 = 040000 
BIT1S = 100000 
BITe = 000004 
BIT3 = 000010 
BIT4Y = 000020 


BITS = 000040 


/BIT&6 = 000100 
BIT? = 000200 
'BIT8 = o00400 
| BITS = 001000 


“BLOEXH 047026 


BPTVEC= 000014 
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3325 3339 3352 
3310 3326 3340 
3327 3341 3354 
3311 3328 3342 
8574 8577 8684 
3312 3329 3343 
3295 3313 3330 
3301 3449 3$93 
3302 3450 3594 
3303 3304 3319 
3305 3320 3334 
3306 3321 3335 
6568 692e 6964 
3307 3308 3322 
5623 $628 7468 
3288 3309 3323 
3324 3338 3351 
10235 10471 
9632 9642 9735 
8838 9071 
76 9078 
4939 4943 494S 
2498 S108* 5113 
30 $337 $347 
7773% 7774 7778% 
6392 74S2 =: 104Se2 
8780 B44 104Se 
10818 10869 £10892 
10166 102eeS 10407 
10761 10818 10869 
5994 6077 76678 


10798 
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10458 
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10773 
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4249 


4250 
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S210 
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CMDTO = 000100 34538 9484 9799 9968 
C 476 Equ7, 3368 
CHSTRT 13446 a6 47048 9726 
CH TROY 684 43308 8508 
CNTRLC 013246 WeB78 6963 7722 
CNTRLG 013272 ue718 6977 7740 
GNTRLR 013260 ueese 6973 
CNTR? Ot deees 6969 ©7728 
COE = 601600 408G8 S& 10069 10235 410471 
COMMA 013305 46748 4890 
COMSTR 005240 37108 9141 9156 9754 
CONCLR= 000176 32238 10900 
CONE 3474 3564 93168 
eRe. Boaoie Soe28 11113 11123 
CRLF = 000200 50638 11084 11123 
CRMPHO 005262 7158 8410 8639 9151 9153% 
CRMPLO 005260 cigs «68411 0S ss«BeHOCsi“‘é@dS OCC 
CRTSER O35464 5492s BOBBe 
F 013277 We728 S222 «99234 9258 
Cs 005702 38158 5493 5583 5634 9200 
CTLOUT 037404 84798 30 4116 
C16 = O04000 32408 9519 10467 
EYtLST Bn as64 fen 3 tt ee 3 SC 
Y poeep4 37238 seit cccsx G67?  5S79 S671 S673. 6141e 6142 6561 6896 147% @14ex 
a 
C. INIT 04 6164 8735 9125 10678" 
C:RTRN OS54456 10782 10819 10838 10645 10848 1085510859 10876 1089810903 109131092 10935 
C.SPEC_ 053476 1978 betas 
OCk = 1 32958 5697 8822 9644 10069 10235 10471 
OCKERR= 000020 42438 964 9735 
DCLO. = 000020 33048 
DDISP = 177570 2063s 2286 ©4732 6320 
> 
DERCNT 121 608 9583 9608  %53 9664 
DESL = 000010 33698 
DFLTST 905644 37328 3801 SOS? S07 S079 S100 S125 
OFGUES 010875 y4ide S246 
OFSTRT 013342 2213, 4edee 
DFO «6 peaead 3ag° = Bue3 y25 243 2473 «2581 «= 28S1~=Ss«BB7 = s«123398 
DFO2 064754 543 be ueBl YB 5455S SBS SiQL)«=SsBN97 «= 503. PSO9)Sss«S15—S ss S21 ~—Ss« S27 
553 33 Scus 5599 3605 3611 3719 5725 5731 3737 8743 3749 #8 8755 
5751 5767 3773 5815 2B33 5857 153538 
DFO3 —-O&S10 5443 3449 Be21 Bee? 123688 
OFO4  O&5050 5575 133858 
DFOS  O&S064 5551 > 123928 
OFO? 65120 5se3 «15407 
DFiO  Oes154 569 1 Bue e 
OF11 O6S200 Bae9 = «1B 
OFI2  Oese20 5617 Sb23,2b29.Ss«2b3S)SsiHLSisiPEH7)—s«SHSCL YEW 
OFI3  OeS2 5665 3677 124558 
OFi4 065300 5671 124688 
OF IS 653 5683 124818 
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bg 5464 2875 125308 
(Dee. ©0654 ozs 125358 
| OFee S04 881 125408 
|OFe3 065534 2791 2797 2803 
OFe4 065544 S 125588 
065550 7 38% 8392% 
4 125648 
27 ©: 065564 125698 
OF30 065610 2893 716i% 125808 
OF31 065634 2899 7204*  7205* 
OH100 063072 e417 3 
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PR tee 
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Sag? 15(23 
DH101 063243 13508 igeel 1B8 
DH102 063332 1e1908 12344 
12504 1leSe3 12546 
DH103 063350 sva> 1 % 
DH104 063373 1633 * 1 12550 
pile 063110 37. lelbes 
DH1 063413 lee008 12548 
DHe00 pesies icigie iso 16399 
a 
Bueos © Dessea 1SSiye i83e3 15360 
DHe03 063541 lee17e 12365 12382 
DHeOY 064410 leesse 1e4Se 
prieno peat 1 ec 1 
prea Be 171 1 pt * 1 12495 
4446 1 ® 1246 12478 
DHSO3 064507 123098 12493 
hag Rose as leeess iSaas 12461 
36 leeses ley 
DHEO4 063715 lee38e 1e413 12428 
4 06374 84 1 Sure 12415 
06377, lec4bs 
06401 83 lees 12417 
1 064025 1eee5e 12419 =1253 
064 leeS7# 1e400 8 1e404 
06411 leecb1s 
DH701 064130 8337% 8391% 98605 
DH70e 38O064e17 1 lee74e 12527 
DH703 peies3 a 3 (E44 12575 
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7 4 leesus 1 
7 4313 122878 1259 
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a 000174 g5i0e 4740 6328 
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/OLTFLG 003141 se758 6016# 6020 6031 
DMD = 
BONE 3 ee S7 ake 738 9117* 9129 9175® 9317# 431% 9768% 9771% 
Bh * 1 10841 
DROY 3088 
ORIEXR 012405 4S898  6555# 
ot be 013043 pare ares 
BRIvE Badess 473 # 9355 S4iS* S42ee S423 S426 6173 6188 643e# 


S486 6114 6154 6170 
Boube bens b8e0 Bees ESice 81> bear" 9562" F588" 53a «7482 EH Ba 


7490 7519 7548 7587 7565S 7582 =: 12322 


OT = 0 & 
PAR = 000010 32828 
002000 # 10703 
DRVCAL O4eS4e 46 4 S604 ee peil S614 Bs ede? 6135 6378 6618 bez 6307 
mo oe i ee me ee eo ae oe ee 
ge4 8 8898 grise 3967 3 3 | B3 3738 9835 37 
DRVOSC= 000040 ts H 74 10143 10309 10371 
DRVERS 003130 36678 4756% S420% 9199% 9203 920S* 9715* 
DRVHRD= 000020 34518 9669 10150 1034S 10476 
DRVLST 005610 27 * 4886 4905 4921 4955 4963% 4975 4978% 4985 4997# S427 6112 61Se 
DRYVLUP 026344 66368 707 6765 68 
BRVNED. 5 a . 1 1 10244 10689 
11131 44S4e S54 S487# 
ORVPOT= 04 34498 10251 10319 
DRVPOS= S448 8 106) 10278 10740 
Be 46438 6763% 
v S344 euai" Pat 80538 
DRVSZD= 010000 s46e8 9497 10081 10843 
DRYTST 014434 46 484 essi* TAY 4871 487 4880 4928 4929 5021 S049 S065 5092 
514 By Seel S248 S276 S32 $397 79Se 8487 
ORVUSE= 000001 34478 1070 
Prrcans Gaaeee of 
DOR. CLR= 2308 10131 10294 10336 10360 10474 
ae BG a oe 10201 10280 10595 10602 10609 10616 10820 
DS' = 177570 e0688 2285 4731 6319 
OTBAII= 4 00 34658 6007 6133 10703 # £10802 
OTE 10000 32328 97 882e 9571 10471 
DTYE = 000040 32848 450 9534 10471 
DTYLST 005620 37668 49928 S431 6159 6213 6388% 6392* 6434 6661 6851 
DTYMSG O1eSS4 46088 6377 
OTi00 §66064610 e4le 2418 e4e4 2430 2436 e44e 2448 2454 2460 2466 e472 2478 e484 
24390 2496 es02 2508 2514 2520 e526 2eS$32 2538 es44 esso 2eSS6 eS62 
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MBOLS 
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M DoiGr? es60 11 38 
M 111 est&6 1 ps es 
M34 11 257 7e 119748 
M3S 1 2S7: 119778 
aE 1 sogh 119828 
1233 90 §=6119868 
EMMY 0604 eves 119128 
M40 pele es36 «=: 119928 
M4 1 eb0e 1 43038 
M4 pei aze e608 1 & 
an Atey 2614 #£1e0068 
MS O6046 e434 119158 
ens 061451 e656 ledlls 
3 Bei dee eb6e =le0l4s 
MS6 1511 2680 e686 120188 
EMG 060506 e440 #8119188 
Bio 1530 e692 § le0els 
M61 1562 2698 isnste 
EMbe 1615 e704 120318 
EM63 ates 2620 ay 120348 
EM64 166 e626 7ee 120408 
EM6S 061715 2632 e7e8 3 le044e 
Eee peisac 2638 e734 1e048s 
EMG 1763 2644 e740 = 1e0Se8 
EM? 060Se5 ew46 361 436} & 
M70 Redes e650 746 12058% 
M71 06206 e7S2 120658 
sive 127 e758 120718 
ale 162 2764 #120768 
M74 20e e770 =612e079% 
EM7S 062214 2776 #6120818 
EM76 062244 e78e 1 | 
EM77 326 2788 794 8 120948 
ENBCSR 1342 4754 4867 $138 71718 #8 7217 
ENTORV 011562 45148 6420 
THED 012620 46148 6499 
ENTLCI 010102 43568 5019 
TMOD Olees3 4S7e8 6471 6601 
ENTPAS 011003 44388 5395 
VALS 013330 46838 7854 
ERRCNT 003126 go658 aus" 4847% 6363% 7648* 9178* 9180 9183 918S* 9318% 9432% 9716% 97248 
ERRCOM OO0S476 37208 9369% 9370* 12322 
ERRFRE O427 3582 6233 6235 7376 91758 9694 
ERRHDL 044200 eres aene 5699 6726 6881 6932 7375 7459 7SS4 8495S 8817 8824 94308 
ERRLMT 003127 36668 9744 
ERRVEC= 000004 eisO*e 4729 4730% 4741% %4Y7SO* 4Y47S1* 6317 6318* 6329% 7156% 7157% 7172 7173 
7174% =©7183% 7184*% 7194 7195 7198% 7199% 7214*  7215% 7221% 8734% 8749 11641 
11642e 11644" 11647% 11755 11756 11760% 11765 11777% #4117828 11791% 11801* 1180e# 
ER2ENT O44220 S434e 3496 9604 9629 9713 
EXPLAN 010234 43728 8665135 
E.CCLR= 000001 35918 10410 
ae = 001000 36008 1046: 
E.CLAT= 000020 35958 10136 10300 10341 # 10365 
E.CMTO= 040000 36028 
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a z 


KIPOR6= 172314 21838 
KIPOR?= 172316 21848 
Kastue poSs7e a4eu ese 395K E198 | 
LC Boeegs agra «= SdSex «Gauss «Ses2) SSS3.s«GuS7* «GYNBK «= GYSO* «GEG4E «66754 669Se GaSHe = 6aESs | 
Lém 020036 Sugue S44ex 54998 6435" 6445x 6662% 6673" 6852% 6863" 8705 98707 
LCVEC 003162 36958 
LONER, 037710 5768 Sus 
COND. 037730 art kg i ae | 
LEVeER= 000400 4247 34 486©94890«= 9586S ss(9S92s—siC‘iLL(aiH“Z=——s«70—=«*NED 
L = 00001e 20618 11117 11123 
LKS 093152 36918 
36250 5940 82698 
LODELS 015536 4919 §071 SO7bs 
CODFPT 016550 50835254 0S: S259 
LODP14 34 5905 81988 
LOERAD= 177740 22008 7201 
= 
LOWOCT 470 17s be90s 53705 7ppye 7623 798) 798g 798k 7 7999 8004 98007 
LS Si 7255 5476x Sueex S54sx 5572 5574 5667 S669 Sesy* Sesex 
LStcyL O20040 Suave S44Se S500u 553 «S563 6089 SHNGx © GHSHx HSS) GEESH GE7b* GEIS BASS 
LSTMEM 007142 42678 S7 
LSTTRK= O000Ge 42388 7506 8095 
LSTTST 015354 S031 50408 
MA 005600 7498 75 S758 5759 S830 5831 5837 «$838 5919 5920 5926 5927 
Boi Bosh «sabes §« Blix Bricx B7iae B7ide B7box B77" B7egx 8975 8976 
MAHILM 005574 37478 7029% 7030% 7044* 7045* 7058 7278 «7282 7284 8029 8030 
NAL 0°5436 6483 64968 
MANALN 012413 45918 6497 
MANEX 025710 486 65518 
XR 012326 45808 6556 6590 
025006 407 «64178 
MANVR 25672 6489 86s BS448 
MANVRF O124S3 45978 6545 
= 1702 21988 9153 
MAPLOO= 17200 21978 7260 9154 
O446 43978 8011 
MAXHI i= 42298 
Ie= 4e3i# 
MAXHI3= 42338 
MAXHI4= 1 42358 
MAXLOI= 1 4e2Be 
XLO2= 017500 42308 
MAXLO= 112160 42e328 
MAXLO4= 022370 4e34e 
MCLK = 00 33238 
Lag 003116 36578 4692" 4701* 4793 +4917 5081 S264 SSYS 6355" 7671 8483 
MOFY15 010730 44308 7888 
S ar™ 9021000 32678 7441 10033 10460 10835 
MABT 003144 36798 7211 
MEMCSR= 172100 21998 7175 7181 7222 7230 
MEMSYS= 177744 22028 7203 
MEMVEC= 000114 36978 475ex 4753« 
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1 33248 
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toe 
= 
MIDXFR 71 83328 9005 
MIND. = 33258 
MINHI1= 42576 
MUVECe = opaze0 seees ou77ae (47748 
= 
MODPIS BS4e1a exee* oe" 38578 
PE 426 a7520—Ss« 71938 
= 0001 33218 
Reo ee ED ay 
MUL | 6123 6176 6185 62378 
PHRDE 35 5743 S622 $911 8010 8029" 
M.CADD= O1 33938 
M.CDIF= 017760 33928 
M.OPID 111668 
M.DPIM OS5220 111378 
RibpBs beeen tide” tttdas 
| MPPYA BEESIE 11177 11198 
'M:DPML 065362 11182 111898 
ace S414 1itee «12838 
Mppso BeEdBe 11175 112098 
M-DRV = OOO007 33898 
| M:HEAD= 007000 33968 
/MI0 = eave 33918 
M:PAR = 1 33908 
M-SECT= 000760 33958 
M.SER = 33948 
NCYLI S12 37268 
NCYL2 14 375748 
| NED = 010000 32708 6930 9468 #9478 10048 10126 10469 10839 
| NEDHOL 0 66S es48 69308 7455 7550 
NEM = OO4000 32698 9463 10063 3 10469 
NEWRY 017332 Bulge sues bese $2079 
WON 005530 37338 4 46624% 6658% 6703 6705 6719 6879 6882 6942 7456 7460 7551*% 7555 
NGOFS? pnseeo 3euo8 | S6a8 e608 ores see 
HMTSTS= OO0006 38018 5540 30. 8729«s«dSe0e:«SCt«‘CSBS9H)=Ss«dS99S~—SC—é«é@OT# 
NOCHK = 000400 34568 10703 10765 10806 10833 10851 10872 10895 10904 10938 
NOORLK 012081 Gsuee 7584" 
FpRc 43268 4902 
NODSC = 004000 34618 9679 10291 
011231 44678 480i S654 S661 8848 
NEXD 011744 usase 7560 
NORTRY 003142 36778 6017*  7379% 9740 
NOTALD 010501 u4028 6168 5173 
NOTDFT 016614 Bop sé 
NOTLOK 012041 qeuee «75 
/NOTMSG 065660 763 126048 
'NOTRDY Ollbie2 uSiBe 7568 
| NOTYPE 003146 36828 44761 4764% 
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| PART! 007132 
PART2 007136 
PAT = O00 0 
PATR., DOS 
PATOO 006036 
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PATOS SOESeE 
PATO& 006336 
PATO? 006376 
PATO8 006436 
PATO 006476 
PATIO 536 
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PATI 36 
PATI 6 
paris | BBerye 
PBLKT iC 
PESvAL= septate 
PCA = 004000 
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PCLKF 003132 
| PCVEC 00316 
PFIFTN 010657 
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S288 5368 S408 
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sses 
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5697 ‘ 8822 9580 
9582 9735 
S24Se 5250 5257 
agng 9973* 10083* 
7496 7590 
5139 
3649 7378 7649 
7364 3436 3796 
ig = Sete 13 
3868 3872 
5508 6291 7291 
12656 
4760 6341 
S740x 5S817*  5S906* 
273 8288 8344 
6012 6132 
8200 
6009 gss 7933% 
9966 10053 10079 
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5215 
9526 10469 


7093 7328 109698 
6719% 

10069 10235 10471 
10087 10103* 10169% 
8967 8980 9692 
Seen Seat | S68 
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7310 7530 8109 
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a nn 
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oe 1618 
003160 36948 
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PS dee Saas 97% x 
PMA o4 is | B3ege eres 637 en saes s9e7e 7244 7246 8290 8361 441 443 
| eROrL 008708 , BS BY BG Ber EP Gt Ga. a. Bar eer ot eae 
 PREPAR 031646 S760 S839 S928 72428 8956 9014 
-PREPKB 03057 q 6732 «5809 «= S897-s«sS998~=Cs«wBLSti‘éGsD 399s 6421 
.—- PO3s e656 peSs Pess = Bead pee; «SC EBoe«SCieeeeStC«iSSsCéSLL 382, S227 Bei4 
SRMENe | pOTaEe esis 4811 . 
PRMLIM 38368 SH 54398 score re sage" ss S332" soi sess 6667* 6674* 6678 
| ca ca & e 
PRMLST * Be Bee0 : ) nn. 5 549ix ue gx 
mn BREBID My 81 6533 Be2i78260Cfsi«‘7BBeSté«é7195794; 
PRMPHO OO0S2S6 37138 9151* 12337 
ose54 g7iee gisex 12337 
Pronet O13334 deeve S308 5009 giu9§273 7905 
“PRO = : S0s4e 4776 #§S418 6349 7652 9762 9834 
PRI = 000040 20gse 
= 
| BRS = a8 soese 
PRY = 00 50888 4769 6345 
PRE 000240 2098 358 
R? 4774 4 7157. 7199 «#411593 «11594 
Ea? = 999830 est sped || dSBde 55d E76. B3d8e C40« 5423, 14322 361% 9975* 10684 1068S 
TART_ 013376 1747018 
= 7 Se 7bex% oaae* 
PURMSG { ieee” 176008 =o 
PWR 719% oa 7% ex 1 ye | * | 3* 
P_ASOF= $3 gisps dzige azeoe 6307" pa0es iheest ib7ebs 13327 
P/A00 = 34818 747 74 7563 7580 9 gg02. «10288* 10289 10305* 10306 10619 10827% 
P-AOL = 4838 67ee e778 7249 10598 
PTALL = Susze eae «9993 10612 
P.BAHI= 34408 5S754* S833% S922% 7268* 98953* 9379 
P: BALO= si4ie 57614 Saag 59158 6015* 027% 6132% 7267* 7507* 096% 8533* 98790*  s80e2« 
. oe ce tte Heel, 
fe = 
Coss: sist 33) (GER 1BSES" cccoe soazas 
P°BO1 = OO004%6 34648 9396 10599% 
0a = ee 
P{CMND= 000001 4348 S466% e008 pegs Sp0S* S610x S6l2x SbB8l* 5766s 5770 se¥e* sesox S941* 
guise e0isx bG024* b029% 610e* 6134* 6169" 6177* 6181% 6e3e* 6506* 6511* 6516+ 
ESSB &S569x ES76* ES81x 6586" 6689% 6743" 6753% 6757% 6774% 67764 6780* 6789 
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00000 vv vU 


878* 689e# aed 907% 914% 7381% 7443" 74S4e 7496% 7498% ###$.7500% 7549" 757S# 
a 7590 Sole # s5* 7634" 76508 8055 8093% 8183% 84978 98S36%  9s8S41# 
8781# aap 970S* 97528 # * 9836% 10099 10716 10720 10732 10742 # 10748 
P.CS1 = 000016 1ei7ee ” 27% 1G , Gade 63 13501 ‘ 13 ‘Gece i 120# 101728 10210% 10211* 
182138 16814 1o3ea% 10325# 1geeee 1 by 10 10960% 10761# 1 ch 1b765% 10768 107Se# 
1079S* 10797% 10796% 1 * 10809 10817% 10818 1 * 10821 108238 10824 10829 # 10868* 
10869% 10871% 10874% 108 10891% 1 * 1 * 10897 10916% ae eon 10927 
P.CS1H= 000007 33 98 161% Bi b3# asd * 6217% it 386% 7 7510# 780% S3B44e  984S* 
10210 1 107 3 10817 1 10882 197 
P.CSe = 000020 34738 Baap 9458 3 9468 34 9476 9478 9526 9576 9660 
10126 10326% 10556# 10714% 10739 1 * 10805 10816 10835 10839 10865" 10866 10890 
P.CYLN= 000002 34358 SS549# S669% SS6e% 5563 S6se 5577 5579% $587% S643 5671 S673%  5679% 
6000 6109 6126% 6157% 6171% 6561% 6896% 7503% #7505 7602 7604* 7607 7610 
8250 870e# 7% 1 6ss4 8938* 633 983e# 10208 10744% «10786 #&=10888 
OCYL= 000030 34778 = =§=68888 8934 9855 9887 10330*% 10564# 
DRVYN= COO000 34338 6116% 6156% 6170% 6194* 6636% 6688*% 675e% 6770% 6784 6849* 7383%  7430* 
7S4S% 19930 196 3 igre 10688 
OS = 000036 34808 1 11 S 66 10333% 10560* 10841 
OTS = 000026 34768 6928 88se 8935 8936 9634 9636 9823 9858 9883 9888 9894 
EPAT= OO00062 1 4 ee? 10122* 10708 
EPOS= 000060 adage 9656 iBt 3* 
ER = 000034 a2 ® S697 35 9457 10332% 10561% 
OFST= QO0006 4388 Base * 1 
setae 1143s 10150" Be 1Oesix 10274 Gere 10egie 10209% 1Gige 100s Gaies iDseae 1Oa7is 
| ines” 1862 t b bd i an 10764 18568 18590 10796* 10802 10806 10833 10843# 10851 
P.SECT= 000004 34368 oecox Ss S74* SS80% SS88* S648 5667 S669* S674* 6002% 6127#  809e# 
| 8177 8186% 8703% 8787% 8796% 8797 8803 8813 8814 8886 8940 9375 
9831 1 10745 10787 19888 
P.TRCK= 000005 34378  S551# 33 SS69# 570 Brae S586* 5637 S676* 5677 6001* 6532*% 6798# 
7S06# #$8095% 178% 68180 818S* 186 8241 8704* #8783* 98885 8939* 9373 
P.WC = 000012 34428 S746e S750% S825* S8e9e S914* S918* 6003% 6006 61°8* 6131% 7508*  8097# 
Se nhl te 8789 8943*% 8969 9006 9377 §=©10785 
P.WCR = 000022 4748 38 10327% 10557% 
QNEWSW= 000000 3193 
@.INIT= 040000 34648 
RCOASW= 010 36868 
RCLREQ@= 004000 4eS08 9504 0 9554 9589 9564 9569 9703 
DALHD= 000164 3eees 10099 10878 
ROCHR = 104406 6369 7717 ~=—61189S8 
ROCHRS 034034 3859 4927 5020 5064 5091 5141 S247 5275S S324 5396 7079 77118 7889 
RDDATA= 32118 §770 5850 S945 6029 7500 8093 8781 
RONDO” O4bS3e 3231" 9616 9821% 
ROHEAD= 12S 32138 S466 9836 10213 10894 
ROSTAT= 000141 geels 6181 6753 6776 7454 7549 7622 8055S 9797 ~=610814 
RDY = 000200 32368 6224 9699 10771 10824 
RECAL = 000113 3e088 5681 65 6511 6516 6569 6576 6581 6586 6789 6902 6907 6914 
7498 7588 849 9705 10757 
RECODE 005474 37198 6022 6175 744B% 8 7514 7647% 8404 8627 8339 3002 g90s0* 3088* 9176 


94 S4b1*% 9466* 9487 9489 9504 9509 9549% 9554* 9559 9564 
9569* 9574% 9582 9586 9592 9607* 9611 9617 9632* 9639 g9642* 9646 9649% 
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9801 


7302 


9682 


4840 
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8S66 
7305S 


9687 


7196 

807 

8874 
11241 


9695 


10450 
10787% 
9621 


10888 


1068S 


6346 


6028 
8533 


106348 
10263 
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8341 
8189 
8957 
118978 


10751# 
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9624 
10507 


10508 
10889* 
9622 
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6033 
8708 


10844 
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8160 
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9698 9751 9782 
9784  100S4 10106 
10768* 10770 #£10809% 
10SS&6 10739% 1080S* 


9623 10188 £10189 


1071S* 


6037 7209 7507 
8971 126028 
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8176 8198 8221 
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SEQ 0268 


9737 


8464 
9303 


10031 


10214# 
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8338 8SeS 8ss4 8sS8 8S96 8600 8621 
3703s elas 9139 en3e 9316 9368 9430 


CLR = 3 
CNDRV 36 4988 8 68 74288 
ss AOmis iets 11898 118988 
SCRACH Sss34 a7aet 4891% 4892 4893 6635* 6638 6750 
aek% 7754 7755S 7765% 7766% 7767 
8648 865 
CNL p10870 44008 51 
CNL 10S20 440S@e 516 
Stbav: Sebtbr en 2 ele 
= 
SELECT SSe4 37318 ate S840 S862 6632 6747 6760*% 
SELP1S 10706 44278 7390 
SERNM ee 44588 34 8100 
SETPRM 16770 Sl Jel S327 5332 S376 
SETTUP 033672 5538 S727 $763 S804 s8sg2 5938 $993 
SETUPM O40O644 S742 5820 5910 87028 
SIZMEM 030630 4788 70248 
ext = BOO 327398 9551 
SORT Lee 9% ueris aed 
SPACE1 pis378 UEP 8 8386 S272 S651 S658 7736 7904 
BeRces 13313 46788 47 88S3 g8s3 9245 9249 9252 
1331 46778 42 
SPACEY 13311 46768 
SPACE6 013307 46758 ## 7803 
SPAR = 020000 38 9501 10467 
SPDLSS= 000020 33038 9515 
anisPc= OOO1it e078 | e757 
T = 111 3 e Ss 7634 107S4 
SRO = 177572 21708 7143% 7153 747% 7349% 7351% 7353 
tse 33 11766 11781% 11788% 
SR1 = 177574 1718 154 
SRe = 177576 21728 7155 
SR3 = A7ESte 21738 S780 S865 S956 7142 7158 11778 
ST 704 38168 5483 
STACK = 001100 e0sss# 4711 4865 S419 6299 764S* 7646 
STALL 04 81178 9115 
TALL Ssde 37228 4782 4866 S137 S483 6357% 8126 
STKLMT= 74 20668 
PAS: 17306 S267 S4igs 
STRCMD O4%2622 6158 8732 9119 91398 
SUBCLR= 000177 32e2e4s 5610 6232 6743 6780 7381 7875 
SUBMOD seset 64698 6491 6518 6572 6588 
ron ot 007050 4eS68 4759 6340 
1 003174 37018 13% 
SUMLO1 003172 3700 801ex 8014 
SVAL = 100000 33138 
SVPRMS O420Se2 S764 S843 59393 89664 
SWR 001140 22e8se 4709 4731% 4733 4739% 474B% 6297 
3 8420 8447 8537 8649 8676 
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632e7* 6334  6342% 
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Tos | 
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AAaaa owe 
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a 
as 

rs) 
8 


930 4996 
G1528 S040. 4769% 6344  634S# 


T K 7238 & * 653 6 768% 67392 6795* 6797% 6793 6801 680S* 6806 

T 3(68e BST3e OSes poaex ae 11594 

TREN quors | «S172 

RNSFR 7 $771 S847 5851 ss4e S946 89sss 

TRIVEC= ri3 64 38 54 

138 36) 4s 4775% S414 6137% 6180# 6356* 8479 

STLST 005630 3781 380 77 5099 5119% S124 S128 7680 7804 

TaTnos 10000 434S@ 179068 

Terie err 174% 6195 62138 

TSTl 020050 5497 SS368 

T ts islets 57 es $7258 

TST 8 

TST4 & 

TSTS 16 ie Sis 

Taotos 022722 $395 60748 

= 002000 42498 9487 9801 
TwPAGT Riel eh 46278 6s99 
Typos = 10 1 by eee? 5" 7 118928 
= 
= 104401 4758 4759 4760 4825 4767 4811 4815 4820 4829 4841 4843 4BY44 4868 

4878 4879 4882 4890 4893 4901 4902 4911 4914 4925 939 4940 5018 
SCG BC Came Cc CC 
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10107 1012 10131# 
10325 10336# 1pe0% 
1055S 10595# 190es5 
10063 10 101928 


10332 10471 #10513% 


10305 10347 10369 
10599 10606 10613 


7140 7257 8408 


6616% 6625 6772 


10469 
8794 esos* 98811 


8637 


6787 


88eS* 


5973 

7734 
7683 7848 7854 
80s 8058 8077 
soso «8238 Se40 
75 $280 9284 

11896 118888 


10168 1 478 10201# 
1040 4 104S1# 
10616* 10770% 10771 
10229 43 0326 
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| WCERR = 100 4yo24uSe 98999 9663 9735 
We 44 44098 
4 g7aes 8270 8339 8395 8560 8602 8618 essex 98941 8969*% 98970% 
= 368. 
s 32918 9542 10069 10235 
332: 46528 B48 
WRCK 14 S6o4e 
T le 32le8 5766 S846 5941 6018 6169 8536 10792 
tees sige 
= 
WRT CHK= 1 32158 S605 6024 6177 8183 gS41 10788 
WRTGAT= 33298 
WRTLOK 7561 43198 93 
WRTSEC 7614 SS7 sob) S567 8S2e5e 
. ORV 114 cSe * 10078% 10104* 101S56*% 10171% 10184* 10198*% 10246* 10313*% 10322" 10351* 10373« 
10644* 10693% 10756*% 10759% 10780* 10832* 108S50* 
W.MILI 003060 oss Ss8 10924 
NEN 003066 ® 10756 
W.MTIM OO3056 8 99S8% 
W. SEC 003062 36218 10693 
W. TIME 0603100 36308 9959 9965" 10077% 10105* 10155* 10170% 10183*% 10199% 1024S* 10312* 10321* 10350* 
WOK © pues 10643# 10635" ican i0e228 10849* 
W. WTCH tbat 373 133 Sofie 1076 1077S 10822 
W. BSEC 3064 36238 10156 10351 0759 
XDPSAV S42 37388 35%  5S736% lex S813% 5900% S901* 7314 7315 7341 
XDPSVD 134 3o7i8 4789 | 4792% §&739% %S816* 5S904* 7307 BY94* 
XDP, 136 7 7311 73238 7330 7361 
XDPa 185 531g 3438 
XOVLAD pasi3s 36708 S738% S81S* 5903% 7306* 8488 
x S40 73ze 7280% 7284*% 7285* 7286* 7313 
7 7 deree 1314 | 
secre = SHRHER U 17515 19509 
YC oS74Se2 11683 116858 
SATY 7426 116818 
SATY 7434 11072 116828 
TY4 7444 11516 116848 
Sense, DOLaz4 cscs 4796 
SECRDR 1le2 22778 
Seer pert Seige 6571 6923 11503 11535 
SCHARC 055214 11 11099% 11106 11115* 111208 
SCKSWR= £4222" U il 
CMTAG 001100 goose 47 4707 4715 4721 4722 4723 6294 6295 6303 6309 6310 6311 
M1 = 000040 22978 22988 22998 23008 23018 23008 23038 23048 2305e 23064 23078 23088 23098 
23108 23118 23128 23138 23148 23158 23168 23178 2318% 23198 23208 e32l8 23228 
23238 232048 e3258 23268 23278 e23e88 23298 
$CM2 = 000100 22978 22988 22998 23008 e3018 23028 23038 23048 23058 23068 23078 23088 23098 
23108 23118 23128 23138 23148 23158 23168 23178 23188 23198 23208 23218 23228 
23238 e3c%8 23258 223268 23278 23288 23298 
SCM3 = OODD4O 22958 2297 


88 SS55 
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scm4 = 000011 23298 23308 423318 23328 23338 23948 23358 23368 23378 23308 

SCNTLG 057005 115738 


11$7e8 
3 4 117918 
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4ee 8694841 4911 SO44 5191 Sees S665 6376 6379 6980 7061 7062 7772 
7777 8017 oor i748 B84e 8849 8863 9228 9238 9240 9248 9251 9261 


11l23) 0s 11511 =. 111535 
17981 175480 


Eo. 


“r 


SCROUT 
$0820 Lzere 11474 =: 114628 
oa i268 fates gois 8102 112268 
ve 48 416% 6251% 
SDORGN 23908 4970 

6270 62768 
be tal Ea 

s 238 
6265 62808 

«a Eo ie aie fils 
Ee epee ae 49g 148s? 2832 P4es «11069 11074 11698 


47e1% roses Fc 40" 608 6264 6309%* 
2eecbss 114 1l 11611 11625 11650 1 
e74e 8 472e4% 4755% 631e% 7668% 11652 1 


a 
oO 


11658* 11678 
11678 





| RMAX 
| SERROR 4715 6303 114978 
SERRPC 275 11S50S* 11506# 11507 11535 12322 
SERRTB 24078 9219 
RT § cee ll * 11535 
§ : 4723% 6311% 11526 11528 11535 11672 
SE TEND 2254 23918 
ore 23518 11718 
FLG 11681# 11684 11712 11721% 117298 
SFILLC 2es3e 11092 11123 
SFILLS eeSe8 11123 
2e7b8 
T 22768 
T4 62698 
oe pee 
BTSs 2e49s 
SHINUM 32 4786 6353 8203 11024 11032 11037% 110428 
SHIOCT 32 S291 5371 7096 7931 10994* 110078 
sista B01 108 sees 11663% 11664 11666% 11677 
TENS D01114 738 9214 #£=%‘(11507% 11515 11535 
SKTNEX 060074 11765 117908 
$KTOUT O60064 11782 = 117878 
S$KT11 32 $755 5834 5923 702S* 7027 7316 8291 8362 8451 8460 8562 8S72 8580 
8608 8629 8682 8691 89S4 901e 117638 11767% 11790% 
SLF 001316 2343 1llle3 11535 
SLFLG 057671 11722 117288 
pe 054734 4787% 6354 8122 8147 820e 11023 11030 11036*% 110438 
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6313% 
S762 
ll & 
118118 


23498 


11723 
11701 
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11598 11656# 
5937% 6314 
118108 
4743 5S37 
117278 
11716 =611720% 
5707 57888 
11378% 11389% 
116748 
5489 6257# 
11592 
4940 $027 
7944 = 11123 
110198 


12334 


11670% 11675 
1152S =11615 
5726 5803 
5787 58738 
114158 

6258* 6266 
5073 5132 
11535 

8396 BY34# 
e378 16326 
aee’s Sees 
Boobs 8668* 

674% 12329 


$891 


5875 


6279 


5148 


8437 


12334 
a sat 


11671 


5992 


59618 
6285S 


5256 


8617* 


8726 


8829" 12329 
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6075 6331 

5963 60478 
6331*# 7673 
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8618* 8619 
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SREG17 23128 
2c33e 
s3iae 
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23008 
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SRTNAD 62788 
$R2A = 11898 
SSAVRE 118298 
$SC 4713 
SSETUP= esnee 
SSIZE 057674 7026 
B2icex 01 11789 
gS = 177777 4ESGe 
saree S752 7060 
Seve - BBE pee 
SSWR = 167000 20098 
4722 
6277 
iies9 
SSWREG 001342 23618 
SSWRMK= 900000 11630 
STESTN 001324 2e3Se8 
STIMES 001304 23388 
STKB 001146 2ee8ss 
$TKS 001144 22878 
sie bed 23298 
TMP 1 1264 23308 
$TMP10 001302 23378 
STMPe 001266 23318 
STMP3 001270 23328 
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Se4e 9402 


36% 7153% 7197% 8410% S8416# 8424 8430% 8639% 864S* 8653 8659* 9182% 
3 | 12326 2333 


78 9746% 9747% 9783 gssS* 9875 es7x 9901 904 1 

6037" 7154* #7201* 7209 7eeSe® B8411% 8417% 8426 8431% 8640% 8646*% 98655 
ia 98S3s* 9870 9e7ex 9874% 9894* 9895*% 9896% 9897 93900% 9902 9903 
71S5S5*® 7202% 7207 7e2e3* 8418% 8428 8432% 8647% 8657 8661* 9857% 9858* 
ine 9867 9869 9901* 9903% 9905* 12326 12333 
11896 

6301 116338 

471le 471 4715 4717 4719 4721 4722 4723 4725 6255 6300 6301 
eis 6307 6309 6310 6311 6313 11498 11523 11530 11540 11578 11634 
117998 
ree . 8016 8076 8103 113268 
2231 
e0e3 2033 2034 2035 6 2037 2038 2039 2040 2338 2339 2340 
4723 4725 4726 $537 S726 5803 91 5992 6075 246 256 6271 
6279 6310 6311 6 6314 11489 11490 11491 11492 11493 11501 11508 
11$823. 1153S) Ss «11626 = s «116 11628 11629 11630 11636 11648 11650 1651 11652 
+168) 11661 11671 11674 11677 
4746 6334 
SS37* S72e6* S803% S891* S992 6075* 11669% 
47ee% 8654 62S56* 6310% 7675% #7680% 8493 11634 11659% 11664 11667# 11677 

953 6995* 11538 11555 11561 
Soss* Selex Se3ex 6eS4* 6568* 6922 6964* 6997% 11538 11553 11559 





FO6 


CZRENDO RK611/06 SS VERIF 2 MACY11 30A(10S2) 10-JAN-78 12:02 PAGE 279 SEQ 0277 
CZREND.P11 10-JAN-78 10:05 CROSS REFERENCE TABLE -- USER SYMBOLS 
STMPY i272 23338 jj 9033% 9061 
STMPS 1274 23348 
Ene? Solon et 
| STN = guise 2029 5497 5508 55378 5540 5689 5690 5705 S72e68 $729 5785 58038 
5873 Segsie 5894 5961 699e8 5995 6047 60758 $6078 
sree DS 14620 lle 112958 
TPELG 011 $ iioel 11133 
S TPs 1126 sSade it?R4 i}is3 
STRAP 76 4717 6305 118658 
TRAP2 0. 11on8 11887 
TRP = 1 118808 118898 118908 118918 118928 118938 11895 118968 118978 118988 118998 
gree BB ect, lisers 
STSTNM 001102 iktee S42e9% 6255* 6287% 7677 8499 9230 11500 11535 11625 11668* 11669 11674 
T = HEREEE U 11832 
T 0 114288 11892 
T 4736 110618 11709 11880 11888 
STYPEC 055150 11091 11098 11105 111108 11111 
STYPEX OSS216 11116 11118 llléls 
STYPOC O0S6036 113698 11889 
$STYPON 056052 11368 113718 11891 
STYPOS OS601l2 113648 11890 
IT B01 23558 S463 
I™ 00101 ees3e 
DO1 e36e8 
| $VECT1 001370 23878 4795 
$VECTe 001372 23888 
$xTS 0S7206 11635 116398 
$SGETYH= 00 pe74e 
$.$.SM= 44exee LU , 0 9980 10215 10406 10417 104SS 10769 10810 10822 10876 10898 10916 10943 
SOF ILL 6235 1136S* 11369% 11379 114148 
SYHOCAT= ##*%%% U 11510 11636 
. = 070713 ee0sSe 22098 22148 #22168 22188 2226 22e78 22298 22318 22328 $2238 2239%# 22418 
ec43e ecb4e 2344 36888 370S# #37068 37078 #£=¢(.37168 37388 j.37418 #£$j.}37Sl# 4710 4725 
4726 S762 5937 6279 628 8 6313 6314 11123 11195 112538 113158 1148e8 
11535 11538 11578 11586 116038 11677 11678 117308 le3els 
sme: sotag 2884 ZEN 
= 2 
-HIGH O0023e2 2221s 
.-LOW 000230 2220s 


CZR&NO0 Tet 3 VERIF 2 MACY11 30A(10S2)_ 10-JAN-78 12:02 PAGE 281 SEG 0278 
= NAMES 


CZREND.P11 AN-78 10:05 CROSS REFERENCE TABLE -- MACRO 
are teu tee 
CKEXIT 29108 af29 9116 
set 2a sigee 
ERROR & BO 6193 6207 6229 7163 206 7226 7447 7470 8412 841 8415 8433 B44 
8641 42 4 62 874S 8800 9184 9322 326 9333 933 9341 9345S 9349 
oer oere 389 9460 S465 7 9474 9480 82 9491 9493 9495 399 9$03 
| 1 1 el 9524 9528 95$3e 9536 9540 9544 9548 9$S3 9558 9563 9568 
37 7 9601 960 9613 26 9628 9641 9658 9667 9671 9676 9681 9686 | 
1 9714 9748 
_ ESCAPE e2l6es 
_GETPRI el6e8 11759 
GETSWR el6e8 
| i. 3} : 5510 S70Ss 5707 578S% 5787 58738 5875 59618 S963 60478 6049 
NEWTST el6e8 5508 $705 5785S 5873 5961 6047 
NEXT: 3038 
NXT 39088 
| NXTS S068 S540 5689 5729 S806 5894 5995 6078 
_ PARMBK ls 3491 3S23 
PARMDF ls 3397 
POP 2l6es 11038 11469 11724 11725 # 11850 
PUSH elées 11019 11428 11685 11687 11708 # 11830 
P.ORVR le 3555 
RE SDer le 3179 
REPORT 21628 
a-OR v 1s 9909 
sc 20S78  SS36 $725 5802 5890 5991 6074 6250 
SETPRI elb6e8 
SETTRA 118808 11889 11890 11891 11892 11895 11896 11897 #11898 
SETUP el6éee 4705 6293 
SKIP sibs S497 
SLASH l6e8 
eTARS 5010" 2016 2lbee 2224 2235 2237 2244 2260 2344 2347 48S4 4862 $001 5015S 5508 
Paes 3703 $72 308 $801 $873 $889 5961 5990 6047" 6073 6243 6948 6950 6985S 
699 o00e 7009 Ol 7023 70 7073 7103 7109 7120 7129 7149 7151 7168 7170 
7190 7192 7 7241 7274 7277 7291 7301 373 7391 7396 7411 7426 7530 
7546 7598 7600 7616 7619 7640 7644 7657 7688 7709 7786 7794 7811 7820 7836 
784S 7863 78758 7 7974 80. 80 8048 g0S2e 8083 8087 8109 8115 8139 814 
8156 81S93 8170 8175 8194 8197 Bell 8220 8258 8267 8327 8335S 8469 8478 8519 
8S2e4 8548 8 88 86 8701 8719 8728 8753 8755 8774 8777 8830 8835 
8879 8882 0 73h 8965S 8390 8994 9020 9030 9063 9069 9096 
$lle 9136 $138 $16 9174 91 9197 $305 9315 9362 9420 9428 9775 9779 981 
, aes ee 
173E¢ if3ig 11341 811418 1148S 11239 11543. 11607 11610 11622 11680 11737 11814 11859 
2 Rave seed gioce 47278 «63158 
TEST 29078 #$5S508 5705S 5785 5873 5961 6047 
TRMT 118808 
TYPBIN elbe8 
TYPDEC elbee 6266 
TYPNAM 21628 


CZR6NDO0 RK611/06 SS VERIF 2 MACY11 30A(10S2) 10-JAN-78 12:02 PAGE 262 SEQ 0279 
CZR6END.P11 10-JAN-78 10:05 CROSS REFERENCE TABLE -- MACRO NAMES 

eee ee 

Min’ 2 lbe8 

SDE CEN sere 

Soe ren : 2299 2300 2301 2362 2303 2304 2305 2306 2307 2308 2309 2310 


29 2298 
2329 §3h3 2314 2315 2316 2317 2318 2319 2320 2321 2322 2323 23e4 23e5 


eR 


2 
secarn z 329 2330 2331 2332 2333 2334 2335 2336 2337 
T 7 5785 S87 5 6047 
GPSEH” FASE Fa8 EMG ASGBE TERETE HBL sear uese 
SSETM 47438 63318 
SSSKIP 2ibe8 5497 
-EQUAT 20098 2052 
- HEADE *# e019 
g 47 * e162 
ae Eat 88 
. 5 a 504i 204e 2043 
° iF ec2e 
. SAPTH * 223 
. SAPTY £ 138° 
- SCATC ® 203 
-SCMTA 20098 2258 
; 20098 11254 
-$0B20 20098 11215 
- SEOP ® 6e4: 
| - SERRO : 11483 
° # 11008 
; ® 1153 
-$SA 98 118le 
- $SC 20098 11620 
-SSIZE 20098 11735 
-SSUPR 20098 11316 
-STRAP 20098 11857 
-STYPD 20098 11416 
-STYPE 20098 11044 
-STYPO 20098 11339 
- ABS. 070713 000 


ERRORS DETECTED: 0 
DSKZ: CZREND ORE CID SEOOOL “CRF AG. TOLER: CHEMIN /DOCMOM ERIN IS. PE) , OM CSPI 


RUN-TIME RATIO: 460790=5.1 
CORE USED: 49K (97 PAGES) 


DOCUMENT PAGES: 279 


